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Welcome to Learning with Your Computer! 

Every month in Your Computer magazine we present articles and features designed to teach users how to gain from a 
Personal Computer - after all, it's a productivity tool; if it doesn't help you achieve more, then it's a waste of time. 'Achieving 
more' with your PC is what these pages are about - if you haven't already realised it, a computer is a powerful device that can 
be taught to do exactly what you want it to. 

If you've got a taste for artificial intelligence, try the simple problem solving program in Heuristics' - it gives a good 
indication of just how smart a dumb machine can be. A step up from that is 'Graphics Techniques' which shows how to design 
your own simple animation system and gives enough background to enable you to build a complex, animated display; the 
series also demonstrates how to program a simple Computer Aided Design system. One of the most powerful and 
straightforward ways of 'customising' a PC to do what you want, is with batch files and one of the most powerful Batch Filers 
around is Les Bell: his 'Encyclopedia' offers a wealth of tips for these useful tools. HyperCard is a revolutionary concept for 
Apple's Macintosh, but it has implications for the IBM world too - already we're seeing 'hypermedia' products for DOS 
machines that are changing the way we think when working with software. And, if you're curious about 'connectivity', Stewart 
Fist's 5-part series, 'Networking', puts the whole field in perspective, sorts out the jargon and demonstrates that one computer 
plus another is much more than two. 

learning with Your Computer is the place to start learning more about your computer! 
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THE LES BELL 

NCYCLOPEDIA OF 


ROGRAMMING 


Heuristics - rules for problem solving 

Computers need black and white choices to make a 
decision - so how can they be taught to make a 
choice when the problem is more complex? Easy, 
says Tim Hartnell . 

Networking - Part 1 

Stewart Fist introduces the concepts behind 
networking by explaining why, when you talk about 
LANs, you encompass the whole universe of 
computer communications. 

Networking - Part 2 

Local area networks have been with us since the 
mid-70s when they were developed to allow 
expensive peripherals to be shared. Today, there are 
dozens of systems that have built up a loyal 
following, but, if there is such a thing as a'networking 
standard, it is Ethernet. 

Networking - Part 3 

Xerox may have succeeded in making Ethernet the de 
facto standard, but IBM are behind the Token Ring 
system which allows assignment of priorities to 
nodes and the ability to transmit digitised speech - 
but a lot of intelligence is needed to make a Token 
Ring system work. 

Networking - Part 4 

Broadband or baseband has been the choice in the 
past for a networking system but now there's also 
Metropolitan Area Networks, Central Office LANs, 
fibre optic and infrared networks to come to grips 
with. Let's connect the possibilities 

Networking - Part 5 

Large networks are soon to cover whole continents 
and these will be linked by packet-switching services 
— mainframes and PCs will then be peripherals to the 
network! 

No Smoking! 

An insight into the curious workings of a computer. 

Graphics Techniques -Part 1 

We've all seen computer graphics but wouldn't you 
like to program your own? Miroslav Kostecki explains 
the concepts and then shows how 

Graphics Techniques - Part 2 

Graphics tend to be processor intensive which makes 
them slow by default - here are some techniques to 
speed things up! 

Graphics Techniques - Part 3 

Even with the techniques in Part 2, computer 
graphics can still be slow - so let's look at more 
sophisticated paths to speed .. 

Graphics Techniques - Part 4 

Now that you're familiar with the basic techniques of 
computer graphics, animation, memory use and 
interrupts, it's time to write your own CAD system! 
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Graphics Techniques - Part 5 39 

Two-dimensional mazes are easy, so let's design a 
three-dimensional maze we can move through- 

The Les Bell Encyclopedia of Batch File 
Programming - Part 1 46 

We all thought Les was a dedicated CP/M hacker - 
not so, he insists; he just spent more time using 
CP/M and more time programming for DOS. To prove 
his point, he's put together a batch of techniques 
he's been using to make life easier . 

The Les Bell Encyclopedia of Batch File 
Programming - Part 2 52 

In Part I, Les showed how to make Batch Files 
interactive. But, a more powerful trick is to use 
environmental variables. 

Hype about HyperCard 56 

As an introduction to HyperCard, Stewart Fist waxes 
lyrical on hypertext - a flexible, programmable 
information retrieval system quite unlike anything 
we've seen before! 

Behind HyperCard - Part 1 59 

HyperCard is undoubtedly revolutionary, but this 
extraordinary, complex procedural language is 
probably the easiest to program - a fact which 
disguises a number of important innovations! 

Behind HyperCard - Part 2 63 

How different messages are handled within a 
HyperCard system - and what this means to 
programmers .. 

Behind HyperCard - Part 3 68 

Serious users may see HyperCard as a junior sibling 
to 'real' object-oriented languages like Lisp or 
SmallTalk - but for non-professional programmers 
the language is superb! ■ 



User-defined Functions 

Is your code impossible to read? Cluttered? Hard to 
maintain? A hassle to move to a different version of 
Basic? Then you need user-defined functions! 

Byting ProDOS Back - Part 1 

A basic guide to how ProDOS handles files - with 
special reference to the problems associated with 
keeping Appleworks files on a hard disk. 

Byting ProDOS Back - Part 2 

How can a seedling take up a whole block? 

Byting ProDOS Back - Part 3 

How ProDOS allocates and controls its disk space. 

Atari Routines 

For productivity, you can't beat a library of useful 
routines - these simples ones for drawing circles and 
arcs show how to define your own library. 

Twenty Turbo Tips - Part 1 

Borland International's Turbo Pascal has 
revolutionised the way in which many of us program. 
Here, Peter Hill shares twenty ways to make life with 
Turbo Pascal more fun! 

Twenty Turbo Tips - Part 2 

Turbo Pascal generates 'well-behaved' code, which 
ensures a degree of portability across various 
machines, but which makes functions such as writing 
to the screen v-e-r-y slow. 

Turbo Tips - Part 3 

Two more Turbo Tips - 'Fudge' returns an integer 
result to multiplication by a fraction and 'Curses' 
allows manipulation of the cursor on a PC. 

Turbo Tips - Part 4 

The most popular Pascal compiler is Turbo Pascal; 
the most popular database management system is 
dBase - here's how to bring the two together in a 
useful manner. . 
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HEURISTICS 


HEURISTICS 

Rules of thumb for problem solving 


Computers need black and 
white choices to make a 
decision — so how can they 
be taught to make a choice 
when the problem is more 
complex than that? Easy, 
says Tim Hartnell. . . 


H euristics are ‘rules of thumb* 

They are often rather inexact 
rules, which have been proved in 
practice to produce correct re¬ 
sults, more often than not. Heuristics are 
important in artificial intelligence (Al). As 
they are, in effect, paths or signposts to¬ 
wards solutions, an Al program can em¬ 
ploy them to solve problems. But comput¬ 
ers don't like things which are not either 
black or white, zero or one. Shades of grey, 
degrees of uncertainty, and possibilities 
and perhaps sit unhappily within elec¬ 
tronic brains. 

Nevertheless, the intuitive judgement, 
the exercise of common sense, is a vital 
part of human thinking, and it is said that 
until an Al program can work with incom¬ 
plete data, and imperfect methods, and 
still get its results, it has no reason to ex¬ 
pect to be considered intelligent. 

‘Heuristics are criteria, methods, or 
principles for deciding which among sev¬ 
eral courses of action promises to be the 
most effective in order to achieve some 
goal.' That's the definition given by judea 
Pearl in Heuristics: Intelligent Search 
Strategies for Computer Problem Solving, 
(Addison-Wesley, 1984). These heuristics, 
^ says Pearl, 'represent compromises be¬ 
tween two requirements: the need to 
make such criteria simple and, at the 
same time, the desire to see them dis¬ 
criminate correctly between good and bad 
choices.’ 


All problem-solving programs have 
procedures with which to work. I suggest 
that only if the procedure is imperfect, un¬ 
proved or inexact can it really be consid¬ 
ered to be a heuristic procedure. In an ef¬ 
fort to make that statement a little more 
clear, I've included a program with this ar¬ 
ticle which shows a heuristic approach in 
action. 

The program, Antimind, is really Mas¬ 
termind in reverse. Instead of the com¬ 
puter thinking of a four-digit code which 
you have to solve, the program tries to 
solve your three-digit code (in which none 
of the numbers appears more than once). 
Think about the last time you played Mas¬ 
termind. How did you narrow in on the 
correct choice? It is extremely difficult to 
determine exactly how you made your 
decisions, apart from the obvious one of 
rejecting all colours in a choice if you've 
no blacks or whites for that guess. 

Antimind is an attempt to write a pro¬ 
gram which would work towards the an¬ 
swer to a problem in an apparently intelli¬ 
gent manner, even when no clearly-de¬ 
fined human approach to solving the 
problem exists. In this, the computer is at¬ 
tempting to solve a Mastermind-like puz¬ 
zle, in which you think of a three-digit nu¬ 
merical code, and the computer tries to 
guess it. 

You give the computer feedback in the 
form of responding to its guesses with 
'whites' and 'blacks', where a white is 
given for a digit which is correct, but is in 
the wrong position within the code, and a 
black is given whenever there is a correct 
digit within the code. 

The problem, as I suggested earlier, is 
not totally straightforward, as the com¬ 
puter does not know, for certain, which 
digit produced which result. It works in a 
fairly simple manner, in theory, although 
implementing the relatively simple idea 
behind the program was not particularly 
easy. Every time a digit appears in the 
code which is awarded a black, every digit 
within that code is weighted so it appears 
more often in future guesses. The more 


blacks in that particular code, the higher 
the weighting each code gets. A much 
smaller weighting is awarded if the code 
gets one or more whites. Any code getting 
neither a black nor a white leads to all the 
digits within that guess being totally re¬ 
moved from future consideration. 

The program works reasonably well, in 
most cases, although it can sometimes 
get a fixation for a digit which is not in the 
answer, and which it will then bring up 
endlessly, refusing to discard the wrong 
answer. Once you're tried it a few times, 
you might want to refine its methods, or 
try a totally different approach to solving 
the problem (and I’d like to see any solu¬ 
tions you come up with). 

Here is the output for one run of the 
program, when it managed to solve it 
within seven guesses — 

Guess number 1 
My guess is 1 2 3 
How many blacks? 1 
And haw many whites? 0 

Guess number 2 
My guess is 4 5 6 
Hdw many blacks? □ 

And haw many whites? 1 

Guess number 3 
My guess r s 7 8 9 
How many blacks? 1 
And how many whites? 0 

Guess number 4 
My guess is 4 2 6 
How many bIacks? 

And haw many whites? 1 

Guess number 5 
My guess is 8 2 1 
How many blacks? □ 

And haw many whites? 1 

Guess number 6 
My guess i s 1 9 4 
How many blacks' 7 1 
And haw many whites? 2 

Guess number 7 
My guess is 1 4 9 
Haw many blacks? 3 

I guessed yaur cade af 1 4 9 
i n just 7 guesses 

If you want to try your hand at other 
problems of this type, you could write a 
program to solve the following puzzles: 

Puzzle One: There are twelve billiard 
balls, eleven of which are identical in 
weight. The remaining ball the odd one 
has a different weight. You are not told 
if it is heavier or lighter. You fJave a bal¬ 
ance scale for weighing the balls You 
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ID REM ANT IFOUR - to salve four digit codes 
20 REM (c> Tim HartnelI, 1987 
3D GOSUB 520 ; REM INITIALISE 
40 REM MAKE A GUESS 

50 IF GUESS = 0 THEN FOR Z - 1 TO 4^B(Z) - Z<NEXT Z'GOTO 80 
60 IF GUESS - 1 THEN FOR Z - If TO 4:8<Z> - Z + 4*NEXT Z=GOTO 80 
70 GOSUB 290 
80 CL5 

90 GUESS « GUESS + 1 

100 PRINT:PRINT 

110 PRINT "Guess number"GUESS 

12D PRINT 

130 PRINT "My guess is"B(1>,B(2) iB<3) . B(6) 

no print = print 

15D INPUT "How many b I acks'MB 
160 IF B = 4 THEN GOTO 590 

170 IF B = 3 THEN 2D0 

180 PRINT:PR I NT 

190 INPUT "And how many whites">U 

200 IF U + B « 4 THEN Q * 4:C(1) - B(l) C(2) - B< 2 > * C < 3 > * 

B(3) = C(4) « B (4) 

21D IF 8 + U - 0 THEN C(B(D) ~ 0*C(B(2>> - 0*C(B<3).) - 0*C(B<4)) 
a 0:GOTO 4D 

220 IF B > AID THEN FOR Z a 1 TO 4=E(Z) - B(Z) NEXT Z^AID - 8 
230 FOR Z - 1 TO 9 
240 FOR D = I TO 4 

250 IF B < O) a- C(Z) THEN C(Z) U C(Z) + <B + U)*100 + U*1Q 
260 NEXT U 

270 NEXT Z 

280 GOTO 40 

290 REM Pick tour numbers 

300 FOR Z * 1 TO 4 

310 Dl - C< INT(RNDHQ) +- ] ) 

320 IF Dl * 0 THEN 310 
330 D2 “ C<I NT(RND*Q) + 1) 

340 IP 02 ^ 0 THEN 33D 

350 IF I NT ( Dl /10 > > ,INT(D2/10) THEN 8(2) « Dl 

360 IF I NT(Dl/10) < INT(D2/10) THEN 8(2) - D2 

37D IF INT(Dl/10) - INT(D2/10) THEN B(Z) - Dl 

38D IF 8 < Z ) > 1D0 THEN B(Z) ~ 8(Z> - 10CI* I NT ( B ( Z ) /100 ) : GOTO 380 

390 IF B(Z) > 10 THEN B(Z) *■ B(Z) ~ 10*INT(B(Z)/1D) : GOTO 390 
400 NEXT Z 

4ID IF 8(1) » 8(2) OR 8(1) B(3) OR B(l) * 8(4) OR B(2) ~ B(3) 

OR 8(2) - 8(4) OR 8(3) * 8(4) THEN 30D 
420 IF AID > 0 THEN COUNT - 0:FOR Z M 1 TO 4*IF B(Z> = E(Z) THEN 
COUNT - COUNT +' 1 

430 IF AID > 0 THEN NEXT 2=IF COUNT < AID - 1 THEN 300 
440 M « 1000*8(1) + 10D#8(2> + 10*B<3) + 8(4) 

450 K(GUESS) « M 

460 IF GUESS < 3 THEN 510 

470 COUNT - 1 

480 COUNT - COUNT + 1 

490 IF K(COUNT) a M THEN 300 

500 IF COUNT < GUESS - 1 THEN 480 

510 RETURN 

520 REM INITIALISE 

530 GUESS -0!Q-9iAID«0 

540 DIM B(4),C(9) iE<4) *K( 100) 

550 FOR Z 1 TO 9 

560 C(Z) a z 

570 NEXT Z 

580 RETURN 

590 PRINT-PRINT 

600 PRINT "I guessed your code □f"8(1);8<2);8(3);8(4> 

610 PR I NT T AB(5)-"in just"GUESS"guesses" 

620 END 


Listing 1. Antimind — an attempt to zvrite a program which would work toivards the 
answer to a problem in an apparently intelligent manner, even when no clearly-defined 
human approach to solving the problem exists . 


'Heuristics are criteria, 
methods, or principles 
for deciding which 
among several courses of 
action promises to be the 
most effective in order to 
achieve some goal' 


have to find out which ball is the odd one 
using only three weighings - and 
whether it is lighter or heavier than the 
others. 

Puzzle Two: There is a checkerboard 
which has had it's upper left and lower 
right squares removed. You have a box of 
dominoes which are one square by two 
squares in size. Can you exactly cover the 
checkerboard with dominoes? 

Puzzle Three: There are four people: 
Roberta, Thelma, Steve and Pete. Among 
them, they hold eight different jobs (no 
wonder the dole queues are so long, with 
these four hogging the jobs). Each holds 
exactly two jobs. The jobs are chef, guard, 
nurse, telephone operator, police officer, 
teacher, actor and boxer. The job of nurse 
is held by a male, and the husband of the 
chef is a telephone operator. Roberta is 
not a boxer, and Pete has no education 
past the ninth grade. Roberta, the chef 
and the police officer went golfing 

According to Automated Reasoning: In¬ 
troduction and Applications by Larry Wos, 
Ross Overbeek, Ewing Lusk and |im Boyle 
(Prentice-Hall, 1984), the source of these 
problems, the final one regarding the jobs 
has been solved by intelligent sixth- 
graders, so your computer should be able 
to handle it. 

I'd be interested in seeing programs 
which solve these, and similar problems. If 
you don't want to type in the Antimind 
program, you can download it from our 
Bulletin Board, along with an extended 
version of the program, Antifour, which 
solves four-digit codes. Alternatively, 1 can 
supply you with both programs, along 
with a number of other interesting pro¬ 
grams, on a disk for the IBM PC for $5.00. 
You can send your programs and com¬ 
ments to me at this address: Tim Hartnell, 
34 Camp Street, Chelsea, Vic., 3196|. □ 
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COMING TO GRIPS WITH 
NETWORKING 

■Ml 


Stewart Fist introduces the concepts behind 
networking by explaining why, when you talk about 
LANs, you encompass the whole universe of computer 

communications. 


I SUPPOSE THE most primitive form of 
Local Area Network (LAN) is the cable 
that connects your computer to your 
printer. It's a network of sorts, even 
though it only provides a link to a periph¬ 
eral. Fora number of years I have had two 
PCs linked to the same daisy wheel print¬ 
er. There's just one length of cable with an 
extra plug soldered onto the middle. I 
could have gone to all the trouble to put 
switches in the system, but everything 
works fine as long as both computers 
don't attempt to print at the same time. 

You may reject the claim that a cable 
link between one computer and a printer 
is a LAN. but what about two? My double¬ 
link to the printer is a three 'node' (two 
computers, one peripheral) network with¬ 
out any collision avoidance scheme — if 
you don't count the yell: 'Are you using 
the printer?' before we hit return. 

The point is that there are LANs and 
there are LANs. At one end of the spec¬ 
trum we have simple cable systems for pe¬ 
ripheral sharing at distances of only a cou¬ 
ple of metres and at the other we have 
complex broadband communications net¬ 
works with voice, video, and data stream¬ 
ing down cables and over micro-wave 
links spanning dozens of kilometres. 
These days when you talk about LANs, you 
are almost encompassing the whole uni¬ 
verse of computer communications. 

So we need to create our own defini¬ 


tion. If we reject the PC-printer connec¬ 
tions as being too simple, there are prob¬ 
ably three criteria that define a LAN: 

1) The devices on the network share infor¬ 
mation along common pathways. 

2) A method exists which prevents data 
from one user being corrupted by data 
from another. If they share common path¬ 
ways, then it is essential that the system 
f\as some way to avoid data collision and 
corruption. 


These days when 
you talk about LANs, 
you are almost 
encompassing the whole 
universe of computer 
communications. 


31 The devices are addressable — if I need 
to send data to a hard disk unit, it won t 
also simultaneously appear on the printer, 
or on the screens of other computer users 
in the system. 

As a general principle, to satisfy these 
requirements the data needs to be trans¬ 
mitted along the common pathway like a 


train with numerous characters in a chain. 
These trains of data are called 'packets' or 
'frames' and each frame will need to con¬ 
tain a header with the address informa¬ 
tion (where is it going to and who is it 
from?), the position of this packet in the 
sequence (is this the third or fourth 
frame?), then the data, followed by some 
form of checking sequence to make sure 
everything sent has arrived. 

AppleTalk 

A ppleTalk is pretty well the lowest form 
of network life that we can classify as 
a member of the LAN family if we accept 
the above as adequate. (Although I II be 
discussing Apple and AppleTalk in partic¬ 
ular in this article, the principles generally 
remain the same regardless of the sys¬ 
tem.) And despite some early criticism 
that Apple didn't have a file-server (it does 
now), AppleTalk has proved to be an ex¬ 
cellent work-group solution to the prob¬ 
lem of peripheral and resource sharing. 

It is a low-to-medium speed LAN with a 
raw-data transmission rate of only 230.4K 
bits per second and it can handle only 32 
nodes over a distance of 300 metres, maxi¬ 
mum. So it's certainly not the Superman 
of the network world, but it is a good start¬ 
ing point for looking at LANs. 

First of all we need to look at topogra¬ 
phy — an erudite way of saying 'what is 
the basic design?' There are three choices 
(plus a number of combinations and sub¬ 
choices). We can link everything together 
in one line; we can join the ends of this to¬ 
gether to form a ring; or we can radiate all 
our links out from some central hub. Re¬ 
spectively. these three are the Linear Bus, 
Ring or Star topographies. 

AppleTalk is a linear bus design which 
uses multi-drop lines linking the bus 
nodes to each computer or peripheral. 
Surprisingly little hardware is involved 
and the system has a lot of flexibility. 
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The Hardware 

T he 'network' itself is a series of shield¬ 
ed, twisted-pair cables with an imped¬ 
ance of 79 ohms. You can buy made-up 
cables with three pin DIN connectors at¬ 
tached in lengths of two and ten metres 
from Apple, or you can make your own. 
The cables are used to provide the links 
between 'connection modules' which give 
a passive junction between each 'node' 
(device) and the main trunk cable This 
passivity is important because it means 
that a node can be added or removed with 
only a minor disruption to the service. If 
any one part of the system fails, it prob¬ 
ably won't disturb the overall functioning. 

The connection module is a plastic box 
the size of a cigarette packet which sur¬ 
rounds a transformer and a few resistors 
and capacitors. A 45 cm cable links this 
box to the 'node' (computer, printer, and 
so on) while two DIN sockets on the sides 
provide links from and to the next module 
in the chain. The two pins in one DIN con¬ 
nector are electrically continuous with the 
two pins in the other whenever a cable is 
plugged in. 

The transformer isolates the node-link 
from the main trunk while a resistor pro¬ 
vides an automatically switched terminat- 


Star Network: Star designs (top) need a 
network server (usually a dedicated 
computer at the 'hub' of the star). If the 
network server crashes, the whole nettuork 
goes with it; however, if a peripheral fails, 
the system continues uninterrupted. Over , 
distances up to 600 metres, star networks are 
usually connected by twisted-pair cables (as 
are telephones, incidentally); for longer 
distances, coaxial cable or optical fibre can be 
used. 

Ring Network: The ring (center), also 
known as a daisy chain, is a large electronic 
traffic circle. All PCs and peripherals are 
connected together in a circle and all 
information passes through each node in the 
system. There is usually a parallel path 
around each node which provides a detour if 
a peripheral crashes . The nodes can be 
connected to twisted-pairs, coaxial cables or 
optical fibre. 

Linear Bus Network: A bus structure 
(bottom) usually uses a main trunk 
twisted-pair or multi-wired cable into ivhich 
the peripherals and PCs are connected. One 
of the advantages of bus topography is that a 
wide range of equipment can be hung on the 
LAN without problem. Dissimilar 
equipment — Macs, IBM PCs, Apple Us, 
LaserWriters, and different modems — may 
not be able to talk to each other but they can 
share the use of the cable and compatible 
peripherals. 
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ing load across the line if a second exten¬ 
sion cable is not plugged into the module; 
for example, if it is the end of the line. This 
is needed to stop data pulses 'echoing* 
back down the line from the open end — 
like an organ pipe. 

All the other capacitors and resistors in¬ 
crease the noise immunity of the nodes 
and provide protection from possible 
ground-loop currents. The result is an 
electrically balanced, transformer-isolat¬ 
ed, serial-communications, multi-drop 
chain which, for all the [argon, is very 
cheap and easy to build. 

AppleTalk can handle up to 32 nodes 
per network, but networks can be inter¬ 
linked by bridges and translators so the 
range of possible connections on one 'in¬ 
ternet’ is very large — more about bridges 
and translators later. 


You simply plug in the 
connection modules, link 
them with shielded 
cables, plug in your 
software, and go! 


If you've got a number of Apple Macin¬ 
toshs in an office, the above is more than 
you will ever need to know about the hard¬ 
ware. AppleTalk is relatively foolproof and 
anyone can set up a system. You simply 
plug in the connection modules, link them 
with shielded cables, plug in your soft¬ 
ware, and go! 

The Mac is able to provide this simplic¬ 
ity because it has a lot of network elec¬ 
tronics already built in. You can connect 
Apple Us and IBM PCs into an AppleTalk 
network but you need a special communi¬ 
cations board/serial interface for each. 

AppleTalk is based around the use of 
Zilog's 8530 programmable communica¬ 
tions chip; it is a highly flexible device 
that can be programmed to use a variety 
of communications methods and proto¬ 
cols including RS-232C and RS-422 (virtu¬ 
ally a balanced version of RS-232C). Ap¬ 
pleTalk uses RS-422 because balanced 
lines are less likely to suffer interference 
over distance. 

There are two more chips that provide 
support for the RS-422; a driver 'chip 
(26LS30) and a receiver chip (26LS32) 
which are both low-cost and readily avail¬ 
able. In operation the receiver chip is al¬ 
ways listening on the line and it will pass 


on any data to the Zilog controller chip for 
processing. The driver chip is only acti¬ 
vated when the node is transmitting and 
ideally only one driver is connected to the 
system at any one time. 

The entire hardware (physical) layer of 
the AppleTalk system is well specified but 
flexible. It is called upon to perform bit 
encoding and decoding, bit transmission 
and reception, signal synchronisation, and 
carrier sensing; the entire physical layer 
can be replaced by some other medium as 
long as these functions are provided. The 
specifications aren't tied to chips and 
hardware, only to functions. 

The 8530 chip is programmed to use the 
Synchronous Data-Link Control (SDLC) as 
a bit-oriented line protocol which establi¬ 
shes the way data transmission is regulat¬ 
ed. SDLC was widely used for communica¬ 
tion with IBM mainframes and so this con¬ 
trol capability is built into many com¬ 
munications chips. 

The main function of the 8530 chip is to 
assemble the data and retrieve it from 
'packets' or 'frames' which have been 
marked by special bit-patterns known as 
'flags’. These frames can be up to 600 
bytes (characters) long, but since SDLC 
treats everything in terms of bits (rather 
than bytes) there is no necessity to con¬ 
form to the standard 8-bit byte size. 

The chip has a mode known as FM0 
which encodes the bits by a process 
known as bi-phase space encoding. This 
uses the transitions in voltage levels on 
the line to represent the I sand 0s, rather 
than the absolute voltage levels them¬ 
selves a system somewhat analogous 
to the phase-shift keying (PSK) principle 
used in high-speed modems. 

Software 

hile the hardware is reasonably 
straightforward. AppleTalk's soft¬ 
ware is much more complex, although it 
has been compressed into only 6 kilobytes 
of code which becomes part of the Mac's 
operating system. The software has to pro¬ 
vide translation of names and functions 
into network addresses, delivery of the 
data to the right address, routing, and 
error checking. 

AppleTalk follows the conceptual ISO 
seven-layered reference model for the 
connection of computer systems, with 
each layer building on the services pro¬ 
vided by those beneath it However, most 
of AppleTalk's layers are simplified ver¬ 
sions of the OS I standards. 

Protocols in the top five layers physi¬ 
cal, data link, network, transportation, and 
session are at the core of the AppleTalk 


software and these are included in a set of 
routines and a pair of device drivers that 
are called the AppleTalk Manager. This be¬ 
comes part of the operating system when 
installed and provides the link between 
the network and the application program. 

There are several different software 
layers. The Link Access Protocol is respon¬ 
sible for finding out when the main trunk 
line is free. It also sends out data and 
recognises which data should be received 
by reading the frame address. It therefore 
provides the bridge between individual 
computer functions and the network hard¬ 
ware and flow of data, so it is the most im¬ 
portant part of the network for developers 
to understand. 

Link Access Protocol uses CSMA/CA for 
access control. The acronym stands for 
Carrier Sense Multiple Access with Colli¬ 
sion Avoidance. The Carrier Sense part of 
the phrase means that a node wanting to 
transmit first listens on the line to see if it 
is in use. If it is. it defers to the on-going 
transmission. 

It's a first-come, first-served operation 
which is okay for small networks but, as 
you can imagine, large networks using 
Carrier Sense could be locked up by one 
computer transferring masses of data and 
hogging the whole system. 

The term Collision Avoidance defines 
the technique used to avoid data colliding 
in the unlikely event that two computers 
on the network begin transmitting at ex¬ 
actly the same time (within the limits of 
the detection delay). On AppleTalk, all 
transmitters wait listening on the line for 
a short period of time after any data flow 
ceases. Then, to minimise the chances 
that all will begin to transmit at once, 
each computer adds an additional ran¬ 
dom delay which varies according to the 
perceived network traffic. 

If by chance two stations start up at the 
same time, it is up to the other layers in 
the network to detect the garbled mes¬ 
sages on the line and request a retrans¬ 
mission of that particular frame. 

There is also a very similar access sys¬ 
tem known as CSMA/CD, where the CD 
stands for Collision Detection. Here the 
station listens on the line as it begins to 
transmit and if it detects that its own mes¬ 
sage is being garbled, it stops, waits a ran¬ 
dom amount of time, and then if the line 
is still clear it begins again. There are sub¬ 
tle difference between CA and CD 
schemes. 

AppleTalk's Datagram Delivery Protocol 
works in conjunction with Link access by 
handling data routing. This includes the 
forwarding of data over bridges' between 
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various networks. To do this it must work 
in conjunction with the Routing Table 
Maintenance Protocol which each bridge 
uses to keep track of all other networks 
available to fit it and also which bridges 
provide the shortest pathway to the desti¬ 
nation. 

Your applications would link to Apple- 
Talk through software entry points known 
as 'sockets' and the system provides two 
alternative protocols for supporting these 
sockets. If you are involved in question 
and answer type sessions (transaction-ori¬ 
ented use), the Transaction Protocol man¬ 
ages the message sequencing and timing 
of the request/response format. 

Long streams of data — sending or re¬ 
ceiving— are handled by the Data Stream 
Protocol which changes the streams into 
packets and sends them on their way. It 
also checks received packets for errors, de¬ 
mands retransmission if errors are detect¬ 
ed, and makes sure that duplicate packets 
are removed. The integrity of each packet 
is ensured by the use of a 2 byte (16-bit 
CRC) checksum at the end of each frame 

There are a number of other protocols: 
a Transaction Protocol which handles re¬ 
quests and responses between applica¬ 
tions and the 'sockets', a Name Binding 
Protocol which allows you to use your own 
names to indicate network nodes and Fil¬ 
ing and Printer Access Protocols which 
handle the file-servers and the printers, 
including any LaserWriters. 

AppleTalk uses a I byte (8-bit) address¬ 
ing number which is attached to the head 
of each frame of data. This node identi¬ 
fication can therefore be any number up 
to 255, although 255 itself is reserved for 
broadcast use — everyone on the system 
will read it. 

The node IDs aren't fixed, but are allo¬ 
cated at random by the system software it¬ 
self. When a machine first comes on line it 
generates a random number as a trial ID. 
it then butts into the network and sends a 
dummy message to this ID. If it doesn’t 
get acknowledgement it knows that this 
number is free and it will continue to use 
it for the duration of the on-line session. If 
not, it will try again. 

In a way this typifies the whole ap¬ 
proach that the AppleTalk designers have 
taken. It’s not an elegant solution to the 
problems of identification but it does 
work and it doesn’t require the time and 
attention of a network specialist — and 
this is a philosophy that Apple strictly ad¬ 
here to 

In the next part of the series we ll be 
looking deeper into networking. Until 
then, keep a grip on the LAN situation □ 
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Coning to grips with 
Networking - Port 2 


Local area networks have been with us since the 
mid-70s when they were developed to allow 
expensive peripherals to be shared. 

Today, there are dozens of systems that have built up a 
loyal following, but, if there is such a thing as a 
networking standard today, it is Ethernet. 


L OCAL AREA Networks (LANs) are 
not new; they've been around, al¬ 
beit in primitive form, since the 
mid 1970s when their main pur¬ 
pose was to link central processing units 
to expensive hard disk drives and printers 
In the 70s, the costs of computer process¬ 
ing were plummetting, but the price of pe¬ 
ripherals remained high. You could buy a 
complete computer for less than the price 
of a printer, so LANs were introduced as a 
method of cost saving. 

Corvus Systems was the first in the mi¬ 
crocomputer LANs market with its Omni- 
net. designed primarily to allow micro¬ 
computers to share one of Corvus’s hard 
disk drives. At the time, it was the major 
manufacturer of hard disks and therefore 
had a vested interest in getting these 
multi-thousand dollar items linked to mi¬ 
crocomputers. 

Corvus is still around with Omninet 
mainly in the educational and small-busi¬ 


ness area — and has a very large installed 
base of LANs systems, together with a 
rather unenviable reputation for unreli¬ 
ability. But Corvus are still improving their 
system by widening the range of comput¬ 
ers that can link in, and the operating sys¬ 
tems they can handle, and designing new 
bridges to mainframes and to other net¬ 
works. 

There are dozens of other small LAN 
systems that over the years have built up a 
loyal band of followers and an equal 
number of highly vocal critics. There's Arc- 
Net, JANET, Fox 10-Net, Sytek, DR-Net and 
PC-Net II. to name but a few. 

Ethernet 

ut today, the term LANs very largely 
equates with Ethernet. If there is such 
a thing as an industry-wide standard in 
networking, Ethernet is it (although the 
IBM Token Ring system is starting to give 
Ethernet a run for its money) 

Ethernet was developed by Robert Met¬ 



calfe at Xerox. Metcalfe went on to found 
3Com, a company which now specialises 
in highly standardised Ethernet network 
systems. Xerox joined together with Digi¬ 
tal (DEC) and Intel, the chip-maker, to 
force Ethernet on the industry as a stand¬ 
ard — and much to the surprise of every¬ 
one, they have largely succeeded. 

The reasons seem to be that Ethernet 
proved to be moderately fast, quite reli¬ 
able, very flexible and capable of taking on 
new roles. To top this praise off. Ethernet 
seems to now be implementable on a 
wide range of different media although 
it was designed specifically for coaxial 
cable connection. 


If there is such a thing as 
an industry-wide 
standard in networking, 
Ethernet is it ... 


It was originally specified as a 10 mega¬ 
bits/second baseband bus system and this 
remains the basic world-wide standard, al¬ 
though there is a star-topology version of 
Ethernet around. Ethernet systems have 
been implemented on everything from 
twisted-wire pairs to optical fibre and over 
both microwave and infrared aerial links. 
Some systems even incorporate Ethernet 
as a channel in broadband networks 
where it happily co-exists with the normal 
broadband LANs. 
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Recently, a French firm has managed to 
double the capacity of Ethernet while still 
retaining the 10 megabits/second stand¬ 
ard, and it also claims to have introduced 
a voice along with the data-stream — 
something that was only thought possible 
using broadband techniques. 


So it came to pass that in 
August 1983, the IEEE 
announced the 802.3 
standard with 
specifications close 
enough to those of 
Ethernet to constitute a 
tacit endorsement of its 
physical and control 
protocols. 


CSMA/CD 

thernet uses a Carrier Sense, Multiple 
Access/Collision Detection (CSMA/CD) 
control protocol which is derived from a 
system called Aloha, developed — you 
might have guessed — at the University of 
Hawaii. I quickly described the Ethernet 
CSMA/CD collision avoidance system in 
Part 1 when discussing AppleTalk, but it is 
well worth looking at in more depth. 

This is a first-come, first-served proto¬ 
col which works fine up to about 80 per 
cent of the maximum theoretical capacity 
of a system; above this, the system gets 
bogged down. When too many computers 
attempt to access the common cable at 
the same time, the whole system starts 
spending too much time contesting who 
owns the communications path. 

From the time that it was released in 
1979/80, Ethernet was involved in a public 
brawl with the international Standards Or¬ 
ganisation (ISO). Ethernet didn't conform 
to the organisation's Open Systems Inter¬ 
face (OS1) seven-layer connection stand¬ 
ard and for a while it appeared that Ether¬ 
net was doomed. 

It is a measure of the quality of the 
original design that the American Institute 
of Electrical and Electronic Engineers 
(IEEE) came to its rescue by setting a 
committee which had the job of devising 
specific standards for LANs interconnec¬ 


tion which allowed for Ethernet's 
CSMA/CD implementation. 

At about the same time the European 
Com pu ter Ma n u f actu rer's Associa ti on 
adopted Ethernet as its LAN standard and 
a number of major mainframe computer 
manufacturers in the USA followed suit 
So it came to pass that in August 1983, the 
IEEE announced the 802.3 standard with 
specifications close enough to those of 
Ethernet to constitute a tacit endorse¬ 
ment of its physical and control protocols. 

Since that time Xerox and its partners 
have further defined Ethernet for most of 
the other ISO levels - although the US 
Department of Defence has managed to 
independently define its own conflicting 
standards for levels three and four. 

Basically it works as follows — when a 
node wishes to send a message over the 
network, it first listens on the LAN for ac¬ 
tivity and if the network is silent it begins 
transmitting. However if it finds that the 
network is busy, it will wait constantly 
listening for the conversation to end. 
When it does, the waiting node will im¬ 
mediately try to seize control and transmit 
its message. 

Most data collisions occur at this point 
because 2 or more nodes might be waiting 
and will all try to transmit at the same 
time. This results in a jumble of data, 
none of which makes sense to anybody 
listening and since each Ethernet control¬ 
ler also has a receiver that simultaneously 
monitors all communications on the line, 
the controller will immediately detect the 
overlapping pulses caused by the collision 
and stop transmitting. 

All competing nodes will react the same 
and all will immediately transmit an abort 
pattern over the LANs informing everyone 
on the network that a collision has oc¬ 
curred and therefore that the last stream 
of data was garbled. The receiving 
station/s immediately dump their regis¬ 
ters of data received and the whole net¬ 
work goes into a holding pattern. 

Each node waiting to transmit then 
loads itself with a random number that it 
uses to represent a time period — and it 
waits this amount of random time before 
it begins to retransmit. The first node to 
time-out therefore has a high chance of 
finding the network free, and once it 
begins to transmit the whole wait-cycle for 
the other nodes begins again. 

This process of network contention 
works very well in Ethernet for up to a 
1000 or so nodes in normal circumstances' 
but obviously the greater the number of 
nodes sharing the network, the greater the 
chance of collisions. 


The information in an Ethernet network 
is transmitted and received in packets, 
each of which is called a 'frame*. These 
frames consist of: a Preamble, two ad¬ 
dress fields, a Type field, the Data field 
and a frame check sequence, in that order 
— refer to Figure 1. 


ETHERNET PACKET 



Figure 1. The information in cm Ethernet 
network is transmitted and received in 
Packets , each of which is called a 'frame'. 
These frames consist of: a 64-hit opening 
statement, the Preamble; a 6-byte 
Destination address; a 6-byte Origination 
address; a 2-byte Type field that defines the 
user protocol associated with the frame; a 
Data field, which must be longer than 45 
bytes and shorter than 1500; and a frame 
Check sequence, which ensures the data 
received is the same as that sent . 


The Preamble is a 64-bit opening state¬ 
ment that synchronises the receiver and 
the transmitter and generally advises 
everyone on the network that data is on its 
way, It consists of 62 alternating ones and 
zeros, followed by an end-mark pair of 
ones. 

The Destination address follows im¬ 
mediately after and it consists of a 6-byte 
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number representing 1 of 3 types of ad¬ 
dress designations. This can be a specific 
address for a particular node; a general 
address for a group of nodes; or a broad¬ 
cast address for all nodes on the network. 

The second 6-byte address field con¬ 
tains the address of the Origination sta¬ 
tion. This is followed by a 2-byte Type field 
directive which identifies the user proto¬ 
col associated with the frame. 

The actual message is contained in the 
Data field, which has no fixed length 
However, it does have limitations -- it 
must be longer than 45 bytes and shorter 
than 1500 bytes and is automatically ad¬ 
justed to accommodate the information 
being transmitted. 

Ethernet also specifies an error-check¬ 
ing algorithm that calculates a sum of all 
the fields (except the Preamble). This re¬ 
sult is stored in the frame check sequence 
field at the end of the frame. The receiving 
node makes the same calculations and 
compares its result with the frame check 
sequence number. If the 2 match, the sys¬ 
tem accepts that the data is valid. 

The use of frames having a limited 
length prevents I node from hogging the 
whole system; the other nodes have an 
equal chance to transmit in the gap be¬ 
tween. On the other hand, Ethernet's abil¬ 
ity to use quite long frame-lengths, means 
that the system doesn't lose too much 
time in systemoverheads (addressing, 
checking and so on). There is also less 
chance of data collision as the system 
comes under load. 

At the 'plumbing' level, Ethernet gen¬ 
erally uses only 2 types of coaxial cable 
(thin and thick, or cheap and expensive 
whichever way you want to look at it!). 

The length of the cable is precisely 
stated as being a maximum of 2.8 kilome¬ 
ters in the Xerox standard and having no 
more than 1024 devices connected. But 
nowadays it is quite easy to link LANs to 
LANs and to extend the Ethernet system 
in distance, and in user numbers, through 
the use of bridges to other LANs through 
optical fibre, microwave transmission sys¬ 
tems and infrared beams. 

Coaxial cable isn't the only medium but 
it is the one defined by the Xerox and 
IEEE standards, and the one most com¬ 
monly used. Ethernet's cable is marked 
every few feet at regular points; only at 
these points can nodes be added and re¬ 
moved from the system without breaking 
the major connecting cables. 

In establishing a new node on-line, the 
output from the 'tap' at the mark on the 
cable, is fed to an Ethernet transceiver 
and on to an Ethernet controller — both 


of which are, again, tightly defined by the 
standard. Each node has its own control¬ 
ler which contains all the instructions nec¬ 
essary for correct framing and network 
control. They've now got all this equip¬ 
ment down to a three-chip VLSI set, which 
has bought the cost of the interface down 
to around the $100 mark. 

Xerox has always seen Ethernet as an 
office automation network, primarily used 
to link powerful workstations based on 
Mac-like Smalltalk and Interlisp-D envi¬ 
ronments to DEC minicomputers. DEC 
has recently taken the lead in pushing 
Ethernet as a viable alternative to the new 
Manufacturing Automation Protocol 
(MAP) systems that General Motors has 
been attempting to introduce and stan¬ 
dardise in the USA for large-scale manu¬ 
facturing enterprises. 


They've now got all this 
equipment down to a 
three-chip VLSI set , 
which has bought the 
cost of the interface down 
to around the $100 
mark. 


The problem with Ethernet in a manu¬ 
facturing environment is that it can be 
subject to electronic interference when it 
passes large electrical and electronic ma¬ 
chines. It is often too slow for some as¬ 
sembly line processes and the contention- 
type control mechanism means that tim¬ 
ing delays in the system are uncontrolla¬ 
ble and unpredictable. They say that 
Ethernet might not be able to react to a 
problem on the assembly line in the frac¬ 
tion of a second available before damage 
occurs that's the opinion of the pro¬ 
moters of MAP, anyway. 

On the other side of the coin, Ethernet 
is already well-established as a good, reli¬ 
able LAN standard that is widely accepted 
around the world. It is predictable in 
terms of its reliability, offers no surprises 
and is cheap and easy to implement. 
Xerox and DEC point out that it will do 99 
per cent of anything required of it at the 
present time and it gets better every day. 

In the final analysis, this really is a com¬ 
puterised version of the story about the 
Old Bull and the Young Bull. My betting is 
Ethernet, the Old Bull it takes its time 
but does the job thoroughly. □ 



ELECTRONICS - TECHNOLOGY 
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Coming lo grips with 
Networking - Port 3 


Xerox may have succeeded in making Ethernet the de 
facto standard, but IBM are behind the Token 
Ring system which allows assignment of 
priorities to nodes and the ability to transmit digitised 
speech - but a lot of intelligence is needed to make a 
Token Ring system work. 


O NE OF THE earliest forms of 
local area networking which was 
around almost before the term 
LAN had been invented, was the 
Cambridge Ring, so named after the Brit¬ 
ish university in which it was devised. As 
the second part of the name suggests, the 
Cambridge Ring has a circular topology 
where information is presented to the 
group in a repetitive sequence it's an 
informational merry-go-round. 

The problem with ring topologies is that 
they are fragile. Any break in the circle, no 
matter how small and insignificant, and 
the whole LAN fails. It's a case of 'one out 
— all out'. 

Star topologies provide a much better 
solution to this failure problem LANs in¬ 
herited the star radiating linkage system 
from PABX telephones. They are designed 
with one central controlling unit and inde¬ 
pendent wire pairs radiating out to all 
'nodes'. With the telephone-based origins 
of the star network, it is not surprising to 
find that the main player in the field is 
AT&T with its StarLan system. (A general 
discussion of ring and star topologies was 
given in Part 1, October ‘87.) 

A true star network needs a central 
node processor, but this is okay since any 
LAN above the simple level of peripheral 


sharing usually needs at least one dedi¬ 
cated 'file server' to control the common 
database, and in star networks this ma¬ 
chine can double as the network control¬ 
ler. If one of the nodes breaks down, the 
system continues to operate but, of 
course, if the central control unit fails, the 
whole system goes down 
IBM established a dominant position in 
the office connectivity field fairly late in 
the development of LANs, although it did 
have an early release of the PC Network 
for groups with low data exchange re¬ 
quirements. 

A Star-Wired Ring! 

I BM announced in early 1984 that its 
major LANs system was going to use a 
hybrid of the star and the ring, a 'star- 
wired ring' topology, and then sat back for 
a couple of years while they developed the 
token ring technology to run on it. This is 
now the IBM Token Ring LAN which was 
only released in late 1985 and, as predict¬ 
ed, it has proven to be highly popular. 

Star-wired rings have most of the ad¬ 
vantages of both the ring and the star 
topologies. They don't need a central net¬ 
work controller, but neither are they sub¬ 
ject to the 'one out — all out' problems of 
simple ring wiring. 


Even though the cabelling radiates out 
from a series of central concentrators', 
IBM's Token Ring is 'logically' a circle. The 
network passes information around in a 
merry-go-round, with each computer in 
the system reading the frames of informa¬ 
tion and either acting upon that informa¬ 
tion or passing the frames on to its neigh¬ 
bour. 

The key to obtaining the benefits of 
both the ring and the star elements lies in 
the use of a Multistation Access Unit 
(often called a Wiring Concentrator ), into 
which the radiating cables from the 
terminals/nodes connect. The specifica¬ 
tions allow for normal twisted-pair tele¬ 
phone wires to be used, but recommends 
the use of special shielded twisted-pair 
cable. Fibre optics can also be used. 

In the IBM system up to eight terminals 
can link into any one Access Unit, but Ac¬ 
cess Units are themselves linked together 
into the major network ring; this can have 
up to 260 PCs in the one system plus 
bridges to other networks. 

The key to overcoming the problems of 
the ring structure is the Access Unit, with 
relays which can automatically bypass a 
cabled connection by reacting to the pres¬ 
ence or absence of a special test signal. 
The network is, therefore, able to instruct 
the Access Unit to isolate a device and 
drop it out of the chain if a fault occurs (or 
if the device is disconnected, or powered 
down). 

If a break occurs in the ring, the next 
node downstream will react after not re¬ 
ceiving a token for some time by sending 
out a special MAC-Control frame (dis¬ 
cussed later) containing a ’beacon' signal 
with the address of its upstream neigh¬ 
bour. After a number of beacon signals 
have been received by the node, it will dis¬ 
connect from the ring and the ring will au¬ 
tomatically reconfigure. 

The other major hardware component 
of the IBM Token Ring is the PC Adapter 
Card which plugs into the computer and 
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Figure L The Token Ring Frame system. 


provides the logical link control functions 
and diagnostics for the system. The card 
contains a microprocessor operating 
under its own microcode. 

It can transmit and receive data at a 
speed of 4 million bits per second, which 
sets the limits of the system since each 
node in a token ring'system needs to read, 
reconstruct, and retransmit every frame of 
data as it travels around the system. Every 
node plays an active role with every piece 
of data on the system — unlike Carrier 
Sense (CSMA — see Part 2 for more infor¬ 
mation) systems where the nodes are pas¬ 
sive until they recognise data addressed 
to them. 

The real fundamental difference be¬ 
tween IBM's Token Ring and Ethernet are 
the controlling protocols. Ethernet uses 
CSMA and IBM uses token-passing. IBM's 
game is very much like 'Pass the Parcel'; a 
token* (in this case a 3-byte frame of 
code) gets passed around the ring, and 
only the node holding the parcel can 
transmit. It s a sort of relay race, where 
only the man with the baton is allowed to 
run. 

Ethernet’s ‘wait for a gap in the traffic’ 
method is ‘probabilistic*, while token¬ 
passing is 'deterministic' in nature. 
There’s no way of predicting when a 
particular node on an Ethernet line is 
going to be allowed to transmit — it takes 
its chances along with everyone else. 
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With token-passing, however, we can 
enforce a strict order on the access. We 
can insist on the token being passed sys¬ 
tematically around the ring, with each 
node getting equal transmission times. If 
we want, we can also choose to allocate 
priorities so that certain nodes have dou¬ 
ble, triple or quadruple the chance of 
using the system than others. With IBM's 
token ring network there is a system of pri¬ 
orities which allow important nodes to en¬ 
force access claims over the requirements 
of lesser mortals. 

In the long-run, it could be this aspect 
of IBM's Token Ring that makes it win out 
over other LANs. It is difficult to transmit 
digitised speech on an Ethernet system, 
for instance, because you can never be 
sure that the next few syllables are going 
to arrive in time to keep the speech flow¬ 
ing. With token systems you can give 
speech the necessary priority so that the 
speech buffer never runs out. And the in¬ 
tegration of voice and data is becoming 
increasingly important in LANs. The same 
objection to Ethernet is applied to Manu¬ 
facturing Automated Protocols (MAP) 
which General Motors and other major in¬ 
dustrial manufacturers are attempting to 
introduce as a world standard in machine 
control for factories. 

Ethernet is the main competitor to MAP 
(which uses a token system but with a bus 
topology). The main objection, again, is 
that Ethernet's contention scheme means 
that the overall controlling system of a 
factory can never be sure that a control 
signal will reach a machine in time. It 
could be delayed through system over¬ 
load. 

So IBM’s shift to token-passing proto¬ 
cols has some obvious advantages, but it 
is not without cost — mainly apparent in 
the expense of the PC Adapter Cards and 
the Access Unit. A lot of intelligence is 
needed to make a Token Ring system 
work. 

IBM design is defined by the IEEE's 
802.5 and 802.2 standards and it conforms 
to a couple of layers of the international 
OSI seven-layer model which is designed 
to standardise data communications be¬ 
tween networking equipment. These two 
layers are also the same in IBM's own SNA 
communications layer model. 

Medium Access Control 

I don't intend to go into details about the 
competing layer-models, except to point 
out that the IEEE Standards for Token 
Ring only define th v e Physical Layer (Layer 
I) which designates the type of wiring sys¬ 
tem to be used, and a part of the Data Link 


Layer (Layer 2) called Medium Access 
Control — or MAC, for short. 

A second part of the Data Link layer, 
called the Logic Link Control (LLC) is 
common to all three IEEE LANs specifica¬ 
tions (802.3 — CSMA/CD Ethernet, 802.4 
— Token-bus MAP, 802.5 — IBM Token¬ 
ring IBM). The Logic Link Control itself is 
specified by IEEE 802.2. This MAC level 
subsection of the Data Link layer, speci¬ 
fies how the access method used by a LAN 
works. In this case the MAC level specifies 
the control of the token-passing system, 
which exists as firmware stored in the 16 
kilobytes of ROM on the PC Adapter Card. 


The problem with ring 
topologies is that they are 
fragile. Any break in the 
circle, no matter how 
small and insignificant, 
and the whole LAN fails. 
It's a case of 'one 
out — all out'. 


This MAC control firmware can com¬ 
municate with other nodes in the system 
without you being aware of its actions. It 
does this in order to both control the net¬ 
work and to correct faults in the system, 
and it is therefore given a higher access 
priority than the transmission of data. 

The LLC level software is mainly con¬ 
cerned with the transmission of data 
around the network. There are actually two 
types of LLC frames specified by the IEEE. 
The first simply packages the data and 
sends it out on the network (errors are 
handled by higher levels), while the sec¬ 
ond expects an acknowledgement back 
from the receiver. This second type has a 
form of error detection and correction 
built-in, and is the way in which IBM 
Token Rings operate. 

The information needed by the MAC to 
control the network is distributed by spe¬ 
cial MAC-Control frames, while the data 
distribution is handled by, so called, MAC- 
LLC frames (since MAC controls are 
needed on every frame). This sounds com¬ 
plex, but don't let it worry you, its not all 
that important anyway. (Figure 1 might 
help you sort it out.) 

We saw in November how the Ethernet 


frame was formatted to include addresses 
and error checking information alone with 
the data. But token rings have a further 
complication in that the system needs to 
transfer control between nodes in a sys¬ 
tematic way, and to do this they use a spe¬ 
cial three byte frame called a token. 

This token frame circulates around the 
system in a predefined order, and part of 
one byte in the frame is a priority number 
from zero to seven. 

When a terminal on the system receives 
the token, it first checks the token frame 
priority number against its own frame pri¬ 
ority level. If the token priority level is 
higher, it will pass the token on without 
transmitting. It can add its own 'priority 
request' to the token before passing it on 
if it chooses, and if a change hasn't been 
made to this request as it passes around 
the ring, the originating node will take 
control and transmit its data the next time 
the token comes around. 

Whenever a terminal frame's own pri¬ 
ority level is equal to, or higher than the 
token priority, the node can begin to 
transmit immediately. A terminal will only 
release the token frame after it has fin¬ 
ished transmitting, or after a predeter¬ 
mined time or set number of frames have 
been sent. 

What actually happens is that the first 
and last bytes of the token are retained, 
and the terminal's information bytes with 
addresses, data and error checking, are in¬ 
serted between these token ’book-ends' 
and sent on their way around the ring. 

The receive part of the system listens all 
the time, and it can detect the returning 
header of its own information, while still 
transmitting the 'tail'. It checks this re¬ 
turning frame to see that it has been 
copied properly by the destination node. 

At this stage, a new three-byte token is 
regenerated and passed off to the next ter¬ 
minal in line. This process ensures that 
there can only ever be one frame on the 
network at any one time, and it applies 
both to MAC-Control frames and MAC- 
LLC frames. 

When a new terminal is connected to 
the ring it immediately sends out a special 
MAC-Control frame which includes the 
address number it proposes to use as 
identity. If this address isn't already in 
use, the frame is returned intact and the 
initialisation process begins. 

The proposed number then becomes 
the terminal's network address and is 
used when sending or receiving frames. 
Incorporated into this address is a func¬ 
tion code which identifies those nodes on 
the system that play special roles. 


18 Learning with YC 




NETWORKING 


Ring Poll 

O ne special form of the MAC-Control 
process worth mentioning is the Ring 
Poll which is initiated by the MAC-Control 
frame and causes each node on the sys¬ 
tem to transmit to its downstream neigh¬ 
bour. This node checks the incoming ad¬ 
dress against the one it has stored, and so 
detects whether unnoticed system 
changes have resulted in a new upstream 
neighbour. If it finds a discrepancy, it ad¬ 
vises the Network Manager, if one exists in 
the system 

Small token ring systems don't need a 
special network control computer, but as 
they grow larger this function can be taken 
up by one member of the circle. Later still, 
when the system demands it, a dedicated 
network managing computer is usually in¬ 
stalled. 

The Network Manger is responsible for 
keeping a list of all nodes currently using 
the network, and it controls the insertion 
and deletion of nodes. This computer be¬ 
comes the central recorder of ring status. 
Any node on the system can communicate 
with the Network Manager by using a MAC 
control frame with the Manager's node ad¬ 
dress incorporating the special function 


The problem with 
ring topologies is that 
they are fragile. 

code. Without this code, the Network 
Manager terminal is just treated like any 
other node on the system. 

Two sub-sections of the Network Man¬ 
ager control special functions. The Ring 
Parameter Server controls the insertion of 
a new node into the system and provides 
it with its addresses and priority codes. 
The Ring Error Monitor collects informa¬ 
tion about errors on the system and sends 
reports to the source address for correc¬ 
tion. Error detection and correction is a 
divided responsibility in the larger token 
ring system. If there is a Network Manager 
on the system, then it will bear the major 
responsibility — if not, the role is played 
by the Active Monitor which can be any 
one of the terminals on the system. 

After a network failure, or when the LAN 
is first fired up, all nodes actively contend 


for the role of Active Monitor by sending 
MAC-Control frames that claim the role 
Usually the node with the highest address 
wins. The Active Monitor looks after the 
circulation of the token, and it sends re¬ 
ports on token errors and changes to the 
ring status if a node is inserted or deleted 
to the Network Manager. It monitors the 
system every 10 milliseconds, mainly to 
check the token for problems. If it finds a 
problem with the token, it will immedi¬ 
ately purge the ring and send out a MAC- 
Control frame to check whether the ring is 
still functioning. This is the only case 
where a frame can be sent by a node with¬ 
out possession of the token. 

If this MAC-Control frame travels 
around the ring and returns to the Active 
Monitor without error, a new token is 
created and set in circulation. If an error is 
returned, the Active Monitor will keep 
transmitting control frames until the 
faulty unit is isolated and removed from 
the ring by its Access Unit. 

As you can imagine, the complexity of 
operation of the Token-ring system means 
that quite complex software is also need¬ 
ed, but I don’t propose to go into this in 
this series. □ 
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Coming lo grips with 
Networking - Part 4 


Broadband or baseband has been the choice in the past 
for a networking system - but now there's also 
Metropolitan Area Networks, Central Office LANs, 
fibre optic and infrared networks to come to grips with. 
Let's connect the possibilities . . . 


O NLY A COUPLE of years ago the 
main argument in the network¬ 
ing world was between the com¬ 
peting camps of the broadband 
and baseband advocates. That's hard to 
imagine since there’s little argument now: 
baseband has had a resounding victory. 
However the past popularity of broadband 
has left perhaps 25 per cent of total LANs 
around the world as broadband systems, 
and what's more, broadband could be 
making a comeback. 

Broadband didn't die out: it found a 
niche in providing LANs 'spines' or ’back¬ 
bone’ links where it was not in direct 
competition to the baseband Ethernets. 
AppleTalks or IBM Token Rings. 

It also became the LAN of choice for 
large scale networks where enormous 
amounts of data need to be transferred 
constantly. In the future it will possibly 
also establish itself in large scale manu¬ 
facturing as the way to link assembly line 
robotics with the central controlling com¬ 
puters. This growth may parallel the boom 
in computer-aided design and parallel 
processing applications which typically re¬ 
quire channel-widths of between 300 and 
400 Mbps. 

Broadband LANs use the same cable as 
the American cable television industry 


(the so-called CATV — Community An¬ 
tenna Television) wiring standard. This is 
a 75 ohm coaxial cable that can be divided 
into multiple channels for simultaneous 
video, data and voice transmissions 
and here is the secret of a possible long 
term broadband revival. 

Connecting people 

t present we view LANs as a way to 
connect computers, but this idea is 
evolving into the concept that LANs are a 
way to connect people. During this evolu¬ 
tionary phase we will gradually be intro¬ 
ducing vision and sound communications 
into our networks along with the data. 
Baseband networks generally will not be 
able to make this change most just 
don’t have the capacity to go beyond sys¬ 
tems that are mainly data with possibly 
some minor voice component. 

Broadband signals are propagated by 
analogue techniques which are similar to 
the way modems and audio frequencies 
are used to send data down phone lines. 
These broadband coaxial links, however, 
transmit data at multi-megabit rates and 
use radio frequencies, not audio. 

Existing analogue equipment and tech¬ 
niques can be applied to broadband LANs 
systems, which was the main reason why 


broadband was very popular early in the 
development of networking. Many broad¬ 
band LANs use slightly modified off-the- 
shelf equipment such as video amplifiers, 
video cable taps, splitters and a special 
piece of hardware called a signal transla¬ 
tor which takes the analogue signal at one 
frequency and converts it to another on 
the same channel. 

Most broadband systems use the ‘mid- 
split’ technique to allocate the radio fre¬ 
quency spectrum on the coax. With mid- 
split, approximately half the available 
bandwidth is reserved for data flowing 
downstream’ and the other half for ‘up¬ 
stream’ communications, with signal 
translators making the conversions at 
each end. 

With mid-split you only need one cable, 
but Wang and a couple of smaller broad¬ 
band LAN suppliers use a two-cable net¬ 
work where one cable is reserved for each 
data direction. 

Either way. the cabling needs of broad¬ 
band are costly and there is the additional 
expense of digital-to-analogue conversion 
equipment and multiplexers. Despite 
these costs, the sheer amount of data that 
can be carried by a broadband LANs usu¬ 
ally justifies the expenditure. 

Other factors favour broadband also. 
Analogue LAN equipment is tried and 
tested - it has been used for many years 
under adverse conditions in cable TV sys¬ 
tems around the world and it has a very 
low failure rate. 

Consultants also have personal reasons 
for advising companies to take the broad¬ 
band route they like to keep eating. Ex¬ 
perience has shown that it is almost im¬ 
possible to predict LANs usage in an of¬ 
fice or factory environment for more than 
a year after introduct.on, so it makes 
sense to suggest a system which can take 
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two or three times the load estimated, 
rather than one that is close to limits. To 
paraphrase an old saying: No one ever 
got fired for buying a LAN with excess ca¬ 
pacity.’ 

With any LAN, the bandwidth available 
decides the number of channels and the 
data rates (and therefore volume) that can 
be transmitted. Depending on the meth¬ 
ods employed, broadband channels can 
have hundreds of kiloHertz (or even mega- 
Hertz) of bandwidth, so the overall sys¬ 
tems can have data capacities beyond the 
wildest dreams of baseband LAN design¬ 
ers. Even a low capacity broadband net¬ 
work will carry perhaps ten times the traf¬ 
fic of Ethernet. 

New baseband LANs 

ind you. new baseband LANs are 
being developed to carry data at 
much higher rates, and the problems that 
bog down contention systems like Ether¬ 
net are being overcome by new network 
access techniques. 

IBM scientists in Zurich are already 
showing a 16 Mbps Token Ring network, 
and exploratory work is in progress on still 
higher rates — in the order of 100 Mbps. 
At these speeds, voice and data signals 
can be mixed on the same line so that 
users can send, view and discuss informa¬ 
tion simultaneously through the same ter¬ 
minal. 

But at best, it will be very restricted 
mixed-media capability it's hard to en¬ 
visage multiple video, voice and data 
channels for simultaneous video confer¬ 
ences or even voice discussions on any 
single baseband network. 

Digitised speech data must be transmit¬ 
ted in a reasonably continuous stream 
with a guaranteed rate of about 32 Kbps 
for telephone-quality voice, if it is to pre¬ 
serve the inflections and tonalities of 
human conversation. IBM's Zurich experi¬ 
ment with Token Ring involves special cir¬ 
cuitry in every node that provides priority 
to the speech component. Whenever 
speech prefix bits are detected, the LAN 
cuts off all data transmission for a few mil¬ 
liseconds and gives right of way to the 
speech data. 

Data is interleaved progressively with 
the priority speech bits, but only at a rate 
that ensures speakers and listeners aren’t 
aware of any interruption. Obviously this 


speech priority restricts the flow of data 
through the network, but the assumption 
is that voice will only occasionally be 
used. 

There are further mixed-media prob¬ 
lems with baseband contention systems 
like AppleTalk and Ethernet: speech (or 
video) can't be transmitted through net¬ 
works which have random delay patterns 
— beyond the limits of the video or audio 
delay buffers, and the frustration level of 
the people communicating. 

This limitation has faced scientists 
working on super-fast Ethernet systems 
because the IEEE standard uses 'probabi¬ 
listic' rather than 'deterministic' controls 
on its communications. A voice transmit¬ 
ting node never knows for sure exactly 
when it will get access to the network. 

There is a French variation of the Ether¬ 
net standard which is heading in the same 
direction as IBM's Token Ring. The French 
Government's INR1A research laboratory 
has come up with an algorithm for making 
Ethernet more responsive to heavy loads 
by adding deterministic controls to the 
communications. They've dubbed this the 
IEEE 802.3D (for deterministic) standard. 

It changes the way Ethernet operates, 
but only at the cost of replacing one chip 
on the standard Ethernet PC boards. What 
1NR1A have done is to replace the algo¬ 
rithm which defines the random time-out 
delay that each node must make after a 
data collision. 

INRlA’s algorithm limits each node’s at¬ 
tempts at retransmission, since these con¬ 
stant collisions when fighting for network 
control are the cause of Ethernet's rapid 
drop in data throughput under load. Now 
after a collision, only half the nodes on a 
network are allowed to re-transmit 
(thereby halving the chance of a second 
collision). If another collision does occur, 
the network halves the number of active 
nodes again, and then again, if necessary 

The nodes drop in and out of conten¬ 
tion themselves by counting the distance 
they are away from the transmitting node. 
They know how many are nodes are on the 
network, and so a simple calculation lets 
them decide whether they can contend or 
not. So this complex control procedure is 
done without the need for an overall net¬ 
work controller— thus maintaining one of 
the strengths of the Ethernet system. 

With this new approach, a worst-case 
message delivery time can be guaranteed 



within clearly defined limits, and this al¬ 
lows Ethernet to deliver voice, and also to 
be used for factory automation networks. 
But it doesn't increase capacity by much 
— it just introduces an automatic form of 
arbitration when Ethernet is reaching ca¬ 
pacity. 

Broadband LANs are obviously much 
better than baseband in carrying out both 
voice and video — and they can even pig¬ 
gyback baseband networks, if required. 
Ethernet for instance, is quite often car¬ 
ried for long distances on one channel of a 
broadband network. 


Broadband didn't die 
out: it found a niche in 
providing LANs 'spines' 
or 'backbone' links where 
it was not in direct 
competition to the 
baseband Ethernets, 
AppleTalks or IBM 
Token Rings. 


Another factor in broadband's favour 
(and the one that makes it especially use¬ 
ful for large-scale manufacturing indus¬ 
tries!. is that analogue technologies suffer 
less from electrical interference than digi¬ 
tal. Therefore, they are more effective in 
industrial plants and other areas where 
electrical noise is a factor. And since the 
amount of noise on a line is generally pro¬ 
portional to distance, this also means that 
broadband LANs can stretch over longer 
distances. 

In the US. cable television systems are 
usually city-wide, radiating out for dis¬ 
tances up to 50 kilometres from the hub, 
and it is not uncommon to find a broad¬ 
band LAN extending its reach the same 
order of distance. In many parts of the US. 
the local CATV system has taken on a new 
non-television role in the past few years. 
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“We have multiple 
sclerosis, a disease of 
the nerve coatings of 
the brain and spinal 
cord. 

There are thousands 
of Us in Australia. 

The most worrying 
thing about MS is th t 
it can’t be prevented 
or cured, and no doctor 
can tell us what’s 
going to happen to us 
in the future. 

But while some of us 
are disabled, most of 
us are ir le pendent —- 
living our daily lives 
just like you. 

We don’t seek your 
pity, we just want your 
understanding and 
support.” 



^ .For more information about 
multiple sclerosis contact the 
MS Society. 


MANs and CO-LANs 

able operators now offer channels on 
their systems for broadband data dis¬ 
tribution. The Americans have invented 
the term MAN (Metropolitan Area Net¬ 
work) to refer to this dual use of the cable 
network. We don't seem to be developing 
MANs in Australia, mainly because we 
don’t have cable television, except in the 
Adelaide foothills and the coastal Sydney 
region, neither of which are noted indus¬ 
trial sites. 

The American telephone companies are 
also getting in on the act by offering CO- 
LAN (Central Office LANs) through the 
telephone network — but they don’t have 
the coaxial links that the CATV companies 
already have installed. AT&T are selling a 
56 Kbps Datakit Virtual Circuit Switch CO- 
LAN package to the 22 Bell operating 
companies, and some smaller telephone 
equipment suppliers are developing CO- 
LAN packages of their own. 

CO-LANs are generally data and/or 
voice and data network services which are 
based on switching equipment located at 
the telephone company's central office 
rather than on the customer's site Ameri- 
tech is working on a CO-LAN which sup¬ 
ports user data rates of up to 2 Mbps on 
existing twisted-pair telephone cables 
They claim that their CO-LAN can handle 
Ethernet LANs, basic RS232C asynchro¬ 
nous interfaces, IBM 3270 synchronous 
terminals and X.25 packet-switching. They 
expect to add ISDN to this list in the near 
future. 

Fibre optics 

here is also a growing interest in fibre 
optics for long-haul LAN applications, 
although only a very few percent of current 
networks in the world use this media - 
and then generally only as a backbone to 
connect baseband systems. 

Optical fibre has the capacity to carry 
voice, video and data at gigaHertz rates, 
but most optical fibre backbones are used 
only to support a simple exchange of data 
between Ethernet systems chugging along 
at less than I Mbps — which is overkill by 
a factor of 50 or more. 

Part of the problem in the acceptance of 
optical fibre as LANs media is a lack of in¬ 
ternational standards for optical fibre 
links. The IEEE’s 802.8 technical advisory 
group is still wrestling with a standard 
specification which will include the core¬ 
diameter size, physical links and network 
topology. 

Optical fibre offers low bit-error rates 
(NO 1 -), bandwidths in the Gigahertz 


range (per fibre), zero electrical interfer¬ 
ence and complete electrical isolation. Se¬ 
curity is also a consideration — it is hard 
to tap intd optical fibres, and for this rea¬ 
son almost half the optical fibre LANs in¬ 
stallations in the world are for defence 
uses. 

The isolation from electrical currents 
and noise could well be the major factor 
in promoting optical fibre systems into in¬ 
dustry especially when coupled with 
MAP (Manufacturing Automation Proto¬ 
cols). Many people think that the use of 
glass media is essential in large manufac¬ 
turing plants to take care of the electro¬ 
magnetic interference problems that 
plague copper-wire systems. 

The negative side of optical fibre is in 
the limited number of direct connections 
you can make tQ a length of fibre Gen¬ 
erally, 24 or so taps is as much as a simple 
system can handle because of dirt and 
scratches that create problems around 
each splice, ft is easy to makegood splices 
in a laboratory, but quite another thing to 
make them in a dirty office or down a 
manhole in the street. 

Infrared 

nother relatively new development in 
LANs transmissions is in the use of 
infrared, which solves the problem of wir¬ 
ing systems by discarding wiring altogeth¬ 
er. There are point-to-point infrared links 
which are used to replace cables between 
semi-adjacent buildings, and also broad¬ 
cast systems that have application in 
work-group LANs. 

These techniques allow the whole of an 
office to be tied together by light beams 
and they avoid the cost of cabling — an 
important factor in some buildings, espe¬ 
cially where changes are constantly made 
to the position of nodes. 

The idea is to bounce a high-intensity 
modulated infrared beam off the ceiling of 
an office and allow it to scatter around the 
room. It can be received by any network 
node using a simple solid-state detector 
This node, in turn, can bounce its own 
message against the ceiling through a 
solid-state infrared emitter and broadcast 
it to all others in the office. 

Infrared seems to reflect around an 
average office space quite well, and you 
can cover quite an area with surpsingly lit¬ 
tle power. Collision detection systems 
seem to work best with infrared broadcast 
techniques since there is no physical se¬ 
quence to the links for token-passing — 
although a limited form of token-passing 
is possible □ 
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Coming le grips with 
Networking - Port 5 


Large networks are soon to 
cover whole continents and 
these will be linked by 
packet-switching services - 
mainframes and PCs will 
then be peripherals to the 
network! 


I N TRYING TO EXTRACT any sense of 
direction from the booming local area 
network (LANs) market at present, you 
would have to say, sphinx-like, that 
LANs are both moving towards wider con¬ 
nectivity and towards workgroup solu¬ 
tions. (There's nothing like having it both 
ways to increase the accuracy of your pre¬ 
diction!) 

Apple originally promoted the work¬ 
group concept many years ago with the 
idea of Macs linked by AppleTalk to other 
Macs in the immediate computing neigh¬ 
borhood. In almost all offices the bulk of 
data exchange is logically and geographi¬ 
cally confined to a small group, so 
AppleTalk's 32-node limit was not a prob¬ 
lem. 

The problem with AppleTalk was that it 
was released too early - it was on the mar¬ 
ket far ahead of good multiuser applica¬ 
tions software. Generally, there was also 
thought to be a conceptual conflict with 
AppleTalk, in that the 'workgroup solu¬ 
tion' didn't fit the prevailing 'bigger is 
better' philosophies of LANs design. In 
time, both ideas have proved to be com¬ 
patible. 


Now with its AppleShare server and 
connectivity to DEC minis and other larger 
and faster LANs systems (both Ethernet 
and IBM's Token Ring), AppleTalk is 
beginning to show its extension capabil¬ 
ities (and they are quite impressive) while 
maintaining its workgroup basics. 

AppleTalk is not alone in making these 
changes. Ethernet now runs on optical 
fibre and broadband systems and IBM's 
Token Ring has come out in bus and star 
topology versions and now has the ability 
to run on fibre optics, piggybacked onto 
broadband analog frequencies. 

In fact, network designs and the net¬ 
works themselves have proved to be dy¬ 
namic, not static. Once installed, there are 
always new connections to be made, new 
facilities to bring online, equipment up¬ 
grades, mainframes to be connected, and 
changing relationships within groups in 
an organisation that require the interlink¬ 
ing of nets, often of different LAN types. 

Most office networks start out with six 
or seven PCs sharing a printer; later they 
add both shared files (through a file-serv¬ 
er) and additional peripherals. Before 
long, the group is experimenting with 
Ethernet backbones to link other indepen¬ 
dently evolved networks, and they want 
gateways to the company mainframes and 
communications links to the outside 
world. What was a simple peripheral-shar¬ 
ing LAN has become part of a mega-LAN 
or internet. 

This is what happened to Digital Equip¬ 
ment Corporation, the main promoter of 
Ethernet. It now has 15,000 nodes on its 
own Internal network and they get re¬ 
quests for over a thousand new connec¬ 
tion each month. The French Post Office 
has the same problem - it is now finalis¬ 
ing a 30,000 node LAN based on Fox's 10- 


Net. It is hard to apply the local area con¬ 
cepts to networks of these sizes - but they 
grew from basically workgroup nets. 

Networking, for many larger organisa¬ 
tions, is no longer an option but part and 
parcel of its data processing system. PCs 
are information processing machines, but 
they only realise their potential when they 
have large stores of information available 
(from hard disks, online databases, and 
now DC-ROM) and can exchange and co¬ 
operatively update this information 
(through PABXs and/or LANS). 

Changing concepts 

efore very long we are going to see the 
geography of the larger of these net¬ 
works covering whole countries or even 
continents, with most being permanently 
linked to packet-switching services which 
exchange data across the oceans. Both the 
data and the computing power will be dis¬ 
tributed and belong to the network as a 
whole; the mainframes and PCs will be pe¬ 
ripherals to the real computing device - 
the network. 

These changing concepts are having a 
profound effect on the way LANs tech¬ 
nology is evolving. A few 'standard' net¬ 
work types have been accepted, but con¬ 
stant developments wreak havoc on the 
standards. Different vendor implementa¬ 
tions of essentially the same technology 
may be quite different; not all 'like' LANs 
are alike. However the LAN market is rap¬ 
idly becoming the inter-LAN market, 
which is forcing the vendors back in line. 

In time, the present limitations of dis¬ 
tance. topology and data throughput will 
eventually be overcome - although new 
problems of security and reliability arise 
The original Ethernet specification called 
for a coaxial cable backbone which was 
divided into three cable segments of 500 
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meters each. There are two cable types - 
'thick' for long runs (backbones) and 
'thin' for shorter distances (office connec¬ 
tions). 

The cable segments are joined by active 
repeaters, so the maximum length of an 
Ethernet Version 1 network is 1.5 kilome¬ 
ters (now 2.8 kms). This includes the back¬ 
bone length and the length of the cables 
that join the stations to the backbone, cal¬ 
culated on a formula that takes into ac¬ 
count the thickness of the wire used. 

These distance limitations are due to a 
propagation delay of 9.6 microseconds, 
with data moving from one end of the 
cable to the other. Even at the speed of 
light it takes time for data to move along a 
length of cable, and collisions can only be 
detected when the signals collide, re¬ 
bound, and the jumble is again read at the 
remote nodes. Remember that the system 
is operating at 10 million bits per second, 
so roughly 200 bits can be travelling on 
the longest Ethernet before evidence of a 
collision is returned to a node. 

Repeaters can double the propagation 
delay, so the 'collision window' is defined 
as being twice the maximum network 
'lag', and this effectively establishes the 
theoretical maximum carrying capacity of 
a system. 

As networks grow in size the problems 
are compounded. The Ethernet (802.3) 
spec restricts the number of stations on a 
network to 1024, but some network de¬ 
signs circumvent this by employing buff¬ 
ered repeaters to regenerate the transmit¬ 
ted signals. 

We need to clarify the LANs termi¬ 
nology here. There are four different net¬ 
work components with roughly similar 
(and sometimes overlapping) functions: 
repeaters, bridges, routers and gateways. 

Repeaters 

AN repeaters are very similar to those 
use by OTC to regenerate voice and 
data signals on submarine cables under 
the oceans and they are generally cheap 
and reliable. 

Repeaters deal only with the physical 
layer (Layer I) of the OSI model, and they 
simply 'repeat' every packet on a LAN 
They read all packets on one network seg¬ 
ment. amplify them, and transmit them on 
another. They don't discriminate in any 
way because they are dealing with the 
data in a purely 'bit' form without any at¬ 
tempt at network management. 

However, buffered repeaters are able to 
overcome the propagation delay problem 
because they hold the incoming packets 
in a buffer and only retransmit them into 
the other segment when an opportunity 
presents itself. 


On either side of a repeater the seg¬ 
ments constitute one single LAN - both 
physically and logically. All traffic is pre¬ 
sent on each segment - with one excep¬ 
tion - some repeaters now contain logic 
to prevent problems in one segment form 
effecting the others. These repeaters 
won't retransmit erroneous signals. 

Repeaters are not only used to link seg¬ 
ments in a straight line, they can also be 
used to create internet topologies with a 
tree-branching structure (but without 
loops). Digital make an Ethernet Thinwire 
(backbone) system with a nine-port re¬ 
peater which allows you network to con- 


FILE SERVERS 

NETWORKS NEED to have access con¬ 
trol on any database (or other files) 
used by more than one person. The 
file-server must differentiate between 
private and public 'volumes' (virtual 
spaces). 

Public volumes might also need to 
be made 'read only' to most users, but 
someone will need to update them, so 
you must have a system of access 
rights. Usually these rights are as¬ 
signed to passwords (attached to the 
user), but different PCs can also have 
unique reference numbers held in 
ROM onboard the net-card (attached 
to the device) 

System software must, also have a 
way of preventing others from access¬ 
ing a file that is already in use, There 
are no problems with a standalone PC 
because you make changes to a file by 
transferring it (from disk) to your own 
machine memory, updating it. then 
copying it back Sometimes the file can 
be away from the disk for a long period 
of time - but: this doesn't matter to a 


nect to either other Thinwire cable seg¬ 
ments of up to 185 meters. You can add 29 
devices to each segment for a maximum 
of 232 stations per multiport repeater. 

You can also get optical cable repeaters 
that allow the maximum distances be¬ 
tween Ethernet segments to be extended 
to over a kilometer - but that's only part 
of the story since you can then begin to 
link different networks - and here, the 
sky's the limit. 

Bridges 

ridges allow us to link two LANS of the 
same type so that they are physically 
separate, but logically the same. One de¬ 


vice on the resulting internet can address 
another as if it were on the same LAN. 

The distinction between repeaters and 
bridges lies in the fact that bridges filter 
and discard all packets that are destined 
for the local side and regenerate only 
those packets addressed to the remote 
side. 

All network packets contain both a 
source and a destination address. The 
MAC (Media Access Control) rules define 
the way these packets can access the 
physical media: this is part of OSI Layer 2 
the Data Link layer and it is at this level 
that internet bridges operate. 


lone user. However, in a network envi¬ 
ronment anything could happen to the 
disk-based version-in that time if the 
file isn't locked. 

The file-server's job is to keep track 
of where files are in the system, and 
differentiate between those users who 
have access on a read only basis and 
those who can make changes. It must 
also distinguish between 'acquire' and 
'access' requests. 

When LANs are used to link a num¬ 
ber of terminals to one large database 
so that a master file can constantly be 
updated by all operators, it makes little 
sense to lock the whole file while each 
record is being updated. Everyone else 
on the system will be forced to just sit 
around and wait until the file become 
available again. 

The solution is to only lock the indi¬ 
vidual records, but this is more risky 
than file-locking. The type of process¬ 
ing involved in record-locking is largely 
dependent upon the operating system 
of the peripheral PCs, and it is for this 
reason that the changes made recently 
to DOS are as important. 


Devices on each side of the bridge sim¬ 
ply address packets to each other as if 
they were on the same LAN - never know¬ 
ing that they are dealing with a bridge 
since the system is 'protocol indepen¬ 
dent'. Bridges function without the need 
to use protocols beyond the standard 
Data-Unk layer addressing; they route 
packets strictly on the basis of their desti¬ 
nation address without using any routing 
protocol. 

However, a smart bridge 'learns' which 
device is on which side, by monitoring the 
source addresses. It uses this information 
to build and update its 'routing table' and 
checks this to decide what packets to filter 
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and which to forward. 

Bridges deal with data at the packet - 
rather than at the bit-level and they also 
apply a network management role. 

Two separate LANs linked by a bridge 
will take care of overload conditions much 
better than two segments joined by a re¬ 
peater. Most traffic will remain within a 
local area, so the smaller the LANs unit, 
the less effect a flood of transmission 
from one node will have on the availability 
of the internet to others. Breaking a big 
LAN into two smaller ones with a bridge 
between improves reliability and security. 

Router 

SI Layer 3 defines the network as a 
whole - and so it is at this level that 
the rules used to interconnect complex 
networks are spelled out - in particular 
items such as the internet addressing sys¬ 
tems. like the widely used US Department 
of Defence Internet Protocol (IP). 

Any device wanting to distribute inter¬ 
net packets through a router must use the 
same internet protocol and explicitly tell 
the router to forward the packets by ad¬ 
dressing it as a device. Data is transferred 
'intelligently' on a message basis. A 


router simply passes on any incoming 
packets but it does not filter or monitor 
the general LANs traffic since it receives 
internet traffic only. 

Routers are much more intelligent than 
either bridges or repeaters, and LANs 
which are joined together through a router 
are physically and logically separate. 
Routers become important when the net¬ 
work consists of complex LANs with mul¬ 
tiple communications paths, perhaps with 
loops and substantial geographical dis¬ 
tance. 

Gateways 

ANS gateways have taken off this year 
because of an almost religious 'con¬ 
version' to networks by mainframe DP 
personnel. Gateways exist to allow com¬ 
munications with facilities outside the 
network or the internet. 

The most common gateway is one used 
to provide X.25 communications over 
public packet-switched networks like 
Austpac and Data Access. 

Gateways operate at even a higher level 
than routers. They generally provide not 
only the physical link but also some kind 
of applications connection. Some require 


the use of a dedicated machine (which 
avoids potential bottleneck problems) 
while others use a garden-variety PC with 
special software. 

Gateways also provide protocol-conver¬ 
sion between the LAN and a network of a 
different type, or links with long-haul ar¬ 
chitectures such as SNA or X.25. Design¬ 
ers are now focusing on the connection of 
different micro-based LANs and on the 
provision of gateways to the larger com¬ 
puters through 'virtual' networking. With 
this approach, a PC-user can access re¬ 
sources on both local and remote servers 
as if they were within his or her work¬ 
group. 

Although virtual networking is matur¬ 
ing, it has its problems. At present, work¬ 
stations on a virtual network tend to ac¬ 
cess minis and mainframes as terminals. 
What we have today is essentially only a 
distributed filing system using database 
managers rather than true distributed pro¬ 
cessing with a wide range of applications. 

There is still an enormous amount of 
work to be done on LANs software - espe¬ 
cially where gateways are involved. IBM's 
newly announced LU6.2 peer-to-peer 
protocol may be one solution, but it is not 
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yet available Apparently it can be imple¬ 
mented on a server with a micro-interface 
on one side and mainframe-support appli¬ 
cations on the other. 

LU6 2 was designed for long-haul 
leased-line connections rather than for 
LANs and it is intended primarily as a link 
between user-nodes on a SA network, 
(which is mainly used in America). 

The aim of the International Standards 
Organisation's OSI layered architecture is 
to make these systems protocol-indepen¬ 
dent, LANs are hampered by the incom¬ 
patible protocols used by the different 
vendors, but the ISO is still working on its 
layered model and only a few of the lower 
layers are fully defined. 

The components necessary to make dis¬ 
tributed processing work on large inter¬ 
nets - such as distributed file systems and 
network 'operating systems' or network 
services - are just beginning to emerge 
Sun Microsystems' Network File System 
(NFS) and AT&T's Remote File Sharing 
(RFS for Unix System 5) system work in 
the upper levels of the OSI model - and 
these are still in confusion. 

The network operating system's primary 
tasks are to know where everything is on 
the system, and to control the resources. 
These new large network tools will need to 
be complex and layered because each 
computer on the network will have its own 
operating system which will need to slot 
in to the network O/S at different levels. 

NFS is both machine- and operating 
system-independent, and it allows trans¬ 
parent access to files on other LAN sys¬ 
tems. If. for instance, you are using PC- 
NFS with an IBM or compatible and Ether¬ 
net. you can enter DOS commands and 
transparently access files on any other 
linked computer running NFS. 

Internets 

he move towards internets requires 
much more complex networks operat¬ 
ing systems than we have at present. 
Many are in the pipeline. In the meantime 
the mega-LAN vacuum is filled by a num¬ 
ber of high-level protocol suites including 
Xerox's XNS, the US Department of 
Defence's TCP/IP, and Decnet from Digital. 

The two most commonly used mega- 
LAN protocols are the TCP/IP and the 
Xerox Network System (XNS). These both 
establish ground rules that allow different 
vendor products to communicate with 
each other Also important are IBM's Net¬ 
work Basic I/O System (Netbios) and Ad¬ 
vanced Program-to-Program Communica¬ 
tion (APPC) which present a common set 
of communications standards for multi¬ 
vendor products on the Token-Ring LAN 


There are only a few LANs which support 
Netbios fully. 

Netbios is said to be easily incorpo¬ 
rated into third-party token ring devices, 
where it ensures they can operate togeth¬ 
er. The IBM Token Ring has a Netbios in¬ 
terface (which was first introduced for its 
PC Network), plus a SNA version of APPC, 

In the OSI model. APPC extends to 
Layer 7 while Netbios sits conceptually 
between Layers 5 and 6 - defining the in¬ 
terface to LAN communications subsys¬ 
tems and detailing call sequences and 
control tables. 

TCP/IP (Transmission Control Protocol/ 
Internet Protocol) is a much older dino¬ 
saur that is still gaining new advocates. 
Novell and Micom-lnterlan have both re¬ 
cently announced new gateways and soft¬ 
ware products using TCP/IP; at least partly 
because the protocol is essential for sales 
to US government and engineering mar¬ 
ketplaces. It is byte-oriented and is slowed 
by the need for mandatory checksums - 
but it has a virtual-terminal protocol. 

Some universities in the US are using 
TCP/IP to link hardware ranging from Cray 
supercomputers down to desktop micros. 
Ethernets also tend to use TCP/IP to com¬ 
municate across a range of computer sys¬ 
tems on a network, 

TCP/IP allows diverse hardware and 
software products to communicate with 
each other. It had been in the Public Do¬ 
main for nearly a decade when it entered 
the commercial area on the back of the 
Unix 4.2 operating system. The University 
of California at Berkeley incorporated 
TCP/IP into its Unix kernel along with an 
address resolution protocol (that map 
TCP/(P addresses to Ethernet IEEE 802.3 
addresses and thereby makes a conven¬ 
ient interface). 

XNS is more efficient that TCP/IP due to 
its packet-orientation. Xerox designed 
XNS for Ethernet LANs about seven years 
ago and it is now the defacto standard for 
interLANs in office automation although 
it is still not fully standardised. Novell has 
a Netware version called IPX for 'Internet 
Packet exchange, 

Both TCP/IP and XNS are layered proto¬ 
cols which can be related to the OSI 
model. Both correspond to Layer I and 
IEEE 802.3. 802.4 and 802.5 standards. 
Both offer compatible services at OSI 
layers 2, 3 and 4 while TCP/IP goes on to 
layers 6 (and 7) with the Telenet File 
Transfer protocol that allows data transfer 
between dissimilar products or operating 
systems. 

So the software components we need 
for efficient distributed processing and 
data exchange are gradually falling into 


place, and national and international 
mega-LANs are becoming a reality. But a 
critical question arises. We can build it, 
but can we manage it? 

Large distributed networks have differ¬ 
ent management problems to small work¬ 
group LANs not the least of which is 
finding the device you wish to contact. Ar¬ 
tificial intelligence and knowledge bases 
will probably have to come into the pic¬ 
ture simply to handle the complexity of in¬ 
formation needed for addressing and 
using remote host devices. 

Addressing 

f every device on a mega-LAN is to have 

a unique address, then the number of 
bits allocated for addressing determines 
the logical maximum number of devices 
possible. In early CSMA/CD and token sys¬ 
tems the standard was set at 16-bits which 
allowed theoretical possibilities of up to 
65,000 devices. But now the address size 
has been extended on most systems to 
48-bits which provides 281 trillion unique 
addresses - enough for everyone, every¬ 
where in the world to have a unique num¬ 
ber and then some. 

Addressing becomes vitally important 
as networks grow - not only in the number 
of devices that can be contacted, but also 
in the range of addressing options. And 
since it is in an evolutionary stage, Ether¬ 
net supports three station addressing 
schemes: network specific, unique and 
multicast. 

Network-specific addresses are unique 
to stations on their own network only, but 
the same address may be used on another 
network. To address these devices from 
outside, you must specify both the net¬ 
work and the address. 

Unique addresses have no twin on an¬ 
other network. This is important in mega- 
LANs communications because it is not 
necessary to specify both a station and its 
network to produce an unambiguous ad¬ 
dress at the next protocol level. 

Multicast addressing is a facility where 
packets may be targeted at more than one 
destination - in other words, for distrib¬ 
uted applications. Broadcasting is the ex¬ 
treme case of multicasting where packets 
are sent to all stations. On Ethernet the 
broadcast address is simply a series of 48 
ones. 

Another valuable addressing facility 
supported by some LAN vendors is re¬ 
source. naming. Users assign specific 
names to resources and call them by in¬ 
voking the name rather than the network 
address. When we start getting 218 trillion 
unique addresses, some such simple 
translation system becomes essential.D 
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NO SMOKING! 


Ewart Stronach reveals the workings of a computer. . . 


F INALLY, I have it figured out. All 
this technical rubbish about bits 
and bytes, millivolts and megawatts 
is simply a ploy, devised by the 
early technical workers to protect their 
opulent lifestyles. 'Bury the task in intri¬ 
cate terminology/ they said. 'It'll be years 
before anyone finds out and we'll all be 
rich.' 

Their secret is out - Ws smoke. Comput¬ 
ers run on smoke! All those little wires 
and tracks simply carry smoke from one 
component to another, (f one of the wires 
or tracks breaks, the smoke gets out and 
the computer stops working. 

The smoke is made in a device which 
the technical people call a power supply 
and stored in devices called capacitors. 
When it is full up, it starts to leak and you 
have to go to an expert to get a new one. 

The bigger the device, the thicker the 
wire needed to carry the smoke, or in the 
case of a complicated device, many thin 
wires each carrying a small amount of 
smoke. Devices which open out to the 
front of the computer are very prone to 


leaking smoke and any sign of such a leak 
from your disk door should be viewed with 
grave suspicion. 

The gravity of the breakdown may be 
judged by the amount and colour of the 
escaping smoke. Heavy black smoke 
means heavy repair bills, while light grey 
smoke is usually the cheapest. 

The heaviest black smoke comes from 
mains powered devices which are con¬ 
nected to the lights in your house. When 
you turn on a light switch, the smoke flows 
into the light bulb with such force that it 
gets excited and glows. This sucks up all 
the dark in the room and turns the smoke 
black. This black smoke goes direct to your 
toaster and either falls on your toast or 
leaks out the back. 

Smoke travels in one direction only and 
transistors and ICs are simply devices for 
shunting the smoke about. If they fail and 
smoke goes along a wire against the nor¬ 
mal flow, it almost always bursts out the 
side of the wire. 

Armed with this most basic premise, 
you may now confidently carry out your 


own repairs and all you need to know is 
which direction the smoke should travel. 

This has got to be one of the best kept 
secrets of modern times and passed down 
from generation to generation between 
technical workers, and then only after due 
examination and the exchanging of a se¬ 
cret handshake. It has been known previ¬ 
ously only to a select few in each facet of 
research The railways department cot¬ 
toned on to it quicker than most when 
they noticed that a lot of smoke was es¬ 
caping from their steam locomotives and 
they switched to diesel. These also leaked 
a little, and the trend today is toward al¬ 
most leakproof electric trains. 

I suppose that it is only a quirk of na¬ 
ture that the North American Indians did 
not invent wire as they obviously had fig¬ 
ured out that messages could be dis¬ 
played by controlled leaking of smoke, but 
did not take that all important step of en¬ 
closing it. Sitting Bull could have been the 
World's First Programmer! □ 

From an idea originally read in an MG Car 
Club magazine ; author unknown , 
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Graphics Techniques 
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C OMPUTER TECHNOLOGY is a 
tool which extends the abilities of 
our bodies and minds. With it we 
can ’build* simulated objects and 
manipulate them at will by using various 
computer procedures or algorithms. These 
techniques, making possible the amazing 
graphics we have all seen on expensive 
machines, have recently become available 
on computers within reach of the home 
user. 

This ‘graphics revolution' has been 
sparked off by a number of developments 
first of all, the cost of video hardware is 
plummeting as a direct result of the falling 
cost of RAM (Random Access Memory) 
chips. This has made high resolution 
graphics more readily available to the 
average user. 

More importantly, however, there is the 
increasing emphasis on user friendliness 
and the more natural it feels to use a com¬ 
puter, the greater is its effectiveness as a 
design and analysis tool It seems that the 
more transparent the system, the better 
results users can get from it. 

This software push has in turn caused a 
rapid development of faster and higher 
resolution video technology and so the 
cycle of better hardware and software con¬ 
tinues. You can expect that high speed, TV 
quality scenes will soon appear on your 
computer monitor — if they haven’t al¬ 
ready. 

Video Display Technology 

T o gain an understanding of how 
graphic software procedures work, it’s 
necessary to examine how the computer 
display system works. The way the com¬ 
puter is wired (the hardware), determines 
the types of manipulations that are possi¬ 
ble with the software. 

For example, we must keep in mind that 
the image is updated for display at a 
predetermined rate, usually 25 times a 
second any slower than this and ani¬ 
mated sequences 'flicker.' 


We've all seen computer graphics but wouldn't you 
like to program your own? Miroslav Kostecki explains 
the concepts and then shows how . . . 


10 ’ ### DRAW LINE It## 

20 ' # Miroslav Kostecki # August 1987 # 

30 'draws line from point a,b to c 7 d 
40 'distributed as evenly as possible 
50 'using only plots 
60 ' 

70 'use integer variables 
80 DEFINT a-z 
90 GRAPHICS PEN 1 
100 CLS 

110 a=100: b=100 
120 c = 600 : d = 20 5 
130 GOSUB 180 
140 ' 

150 END 

160 ' draw line between points a 7 b and c 7 d 

170 ' 

180 u=c-a: v=d-b 'distance along and up 

190 dlx=SGN(u): dly=SGN(v) 'diagonal direction 

200 d2x = 0: d2y=SGN(v): m=ABS(v): n=ABS(u) 

210 IF m<n THEN d2x=SGN(u):d2y=0: m= ABS(u):n=ABS(v) 
220 ' mis the larger of abs(u) and abs(v) 

230 ' and n is the smaller 
240 s*INT(m/2) 

250 ' 

260 FOR i=0 TO m 
270 PLOT a 7 b 
280 s=s+n 

290 IF s<m THEN a=a+d2x: b=b+d2y: GOTO 320 
300 s=s-m 

310 a=a+dlx: b=b+dly 
320 NEXT i 
330 RETURN 


Listing t. A Draw Program using the algorithm in Figure 3. The program tests to see if 
it is taking the shortest path from the starting pixel , to the finish. 
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Block Graphics 

arly displays were based on blocks of 
dots forming character symbols the 
familiar text screen. This has generally 
been extended, so that in the full IBM 
character set, for example, wc now have 
255 different symbols; these are defined 
on 8 dot by 8 dot squares and stored in 
permanent ROM in the video electronics. 
These symbols include the alphabet 
(upper and lower case), lines, shapes and 
blocks of shading 

The display screen is usually divided 
into 80 blocks across and 25 blocks down, 
giving a possible 2000 characters display- 
able at once. The graphics systems stores 
the character codes in RAM (I byte per 
code); each of these 2000 bytes can be ac¬ 
cessed and changed by computer pro¬ 
grams and procedures. 


All 4 quarters are Each quadrant is 

blank] so the given a value for 

graphics character a 'dot' in that 

code is 128. quadrant. 



The new character Here, the character 

code is 7 28 (blank) code is 

plus the values 128 + 2 + 4 132 

of the dots — 

128 H- 2 H- 4 4- 8 

142 

Figure 1. Block graphics on a text screen. 

A common method of using a text 
screen to display dot .graphics, is to use 
graphic symbols which are divided into 
quarters. Each quarter can be either black 
or white, resulting in 16 possible symbols 
for each character position 

The blank symbol is given a certain set 
character code (128 in the IBM set) and 
each quadrant is given increasing values 
of 1.2,4 and 8. When a dot is added to a 
certain position, the new character code is 





arrived at by adding the value of the quad¬ 
rant — see Figure I 

The use of graphics symbols among text 
has made possible graphics transfers over 
modems — this technique is used by 
videotex systems like Viatel because it is 
very conservative with respect to the num¬ 
ber of bytes needed to create a display. 

Another advantage over newer types of 
displays is the quick manipulation of 
characters on the screen. Only I byte in 
memory must be changed to change a 
whole character. 

Dot Manipulations Onscreen 

raphics is normally displayed on what 
is called a memory-mapped or graph¬ 
ics screen. Here each dot (pixel) is held in 
memory and can be accessed and 
changed separately. This means any pixel 
can be set on or off at any position of the 
display which makes the graphics much 
more flexible. Figure 2 shows how the pix¬ 
els are stored in groups to form bytes of 
screen memory. 


10 ' ffttft FILL If## 

20 * follows the left and right edges 
30 1 # Miroslav Kostecki # August 1987 ft 
40 f 

50 MODE 1: DEFINT a-z 

60 GRAPHICS PEN 1'border & 10 random lines 
70 MOVE 0,0: DRAW 0,398 
80 DRAW 639,398: DRAW 639,0: DRAW 0,0 
90 FOR i=1 TO 10:DRAW RND*640,RND*400:NEXT 
100 1 

110 GRAPHICS PEN 2 

120 m=2 'size of pixel 

130 x= 320 : y = 200 *start position 

140 GOSUB 180 'fill x,y 

150 ' 

160 END 

170 * fill subroutene 

180 c=TEST(x,y): a=x 
190 ud=-2: tx=x: ty=y 
200 WHILE a<=x 

210 WHILE TEST(a,y)=c: a=a-m: WEND: a=a+m 

220 WHILE TEST-( x, y) =c : x=x+m: WEND: x=x-m 

230 MOVE a,y:DRAW x,y 
240 y=y+ud 

250 WHILE TEST(x,y)<>c: x=x~m: WEND 
260 WHILE TEST(a,y)<>c: a=a + m: WEND 
270 WEND 

280 IF ud-2 THEN RETURN 
290 ud=2: x=tx: y=ty+ud: a-x 
300 GOTO 200 

Listing 2. A Fill Program illustrating one simple algorithm for coloring a 'block/ 




Four colour pixels , each with its own binary 
code. 



These arc stored iri the display memory as an 
8-bit byte . Each byte is displayed on the 
screen in sequence to give the 'picture/ 


Figure 2, Pixels on a memory-mapped 
graphics screen. 
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An extension of the simple memory- 
mapped screen is a palette system for 
storing shades and colours. With this sys¬ 
tem, a number of colours are taken from a 
particular table and stored in memory. 

For example, you might be working in a 
resolution that allows for only 4 colours 
on the screen at any given time. If, say. 
there are 27 colours in the table, you can 
use all the colours but not at the same 
time. The 4 colours you choose may be 
changed at will. 

The unlimited manipulation of adjacent 
pixels on a memory-mapped display sys¬ 
tem has enabled graphs, spray effects and 
textures to be applied to the video screen. 

Drawing Lines 

o draw a line, it must be converted 
from the continuous form we see on 
paper into a sequence of discrete pixels 
that can be displayed on a monitor. Of 
course, the line's final representation 
should resemble its intended form, look¬ 
ing like a straight line with consistent 
width and accurate position. 

Early line drawing algorithms used a 
horizontal and diagonal lines approach. 
These were easy to implement and were 
fast but they were also very restrictive. The 
algorithm now widely used to draw lines is 
presented in Figure 3. In a nutshell, the 
process tests to see if it is taking the 
shortest path from one pixel to the next. 
Study the diagram and then try the Draw 
Program in Listing 1 yourself. 

If you use low resolution displays, you 


will have notices 'jaggies' or stair-stepping 
to the sides of lines. A technique for 
reducing this effect, called 'anti-aliasing', 
is to vary the brightness of the line with 
less bright neighbouring pixels. As a re¬ 
sult, lines and edges will look nearly con¬ 
tinuous and may even appear to have 
more precision than the resolution of the 
screen. 



V Let S be M/2, 

2) Move along 1 step . 

3) Now, let S be S + N. 

4) If S is now greater than M, then 

a) Move up 1 step . 

b) Let S now be S M. 

5) Loop until the line has moved M steps. 

Figure 3. The algorithm commonly used to 
draw a line . 


One of the uses for lines used this way 
is to greatly speed up plotting shapes. As 
an example, imagine plotting a circle 
using only discrete pixels — you need to 
plot points close enough for there to be 
no gaps. However, if you use lines you 
need to calculate a point for only every 2 
degrees of the circle and then draw lines 


between them. In most cases, this gives an 
indistinguishable result but it’s many 
times faster. 

Filling Areas 

block of colour can easily be created 
by drawing layers of horizontal lines 
but a universal fill algorithm to fill any set 
shape greatly simplifies programming. 

The Fill Program in Listing 2 illustrates 
one simple algorithm. The left and right 
edges of the block are found by testing the 
dots along each direction and a horizontal 
line is drawn between them. The next line 
down is then similarly tested and drawn 
until the left and right edges meet. Then 
the process is repeated going up. This re¬ 
sults in a fast algorithm — but it will not 
work for concave shapes and may even 
erase parts of them. Careful placing of the 
starting position will enable the user to fill 
a complex shape with few starting points. 

More complex fill algorithms are used 
to fill a shape with a certain pattern. These 
programs work similarly but refer to a look 
up table when they apply the points to the 
screen. Masking can be achieved with sin¬ 
gle colour fills to obtain areas of textures 
— first, create a block of texture, then 
apply an outline in a certain colour; then 
filling to the edge of the outline colour 
leaves a textured shape. 

I hope these insights into the basics of 
your computer's graphics system has 
launched you into graphics processing 
technology, in the next article, I'll explain 
how to turbocharge slow graphics. □ 
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the latest exciting developments in 
video, TV, hifi, computers and car 
electronics. More for the hobby 

Australia's Top Selling Electronics enthusiast, too: easy projects to build. 
Magazine articles on how things work, circuit 

Look for it each month at your local ideas and lots more .. . 
newsagent or subscribe now by phoning (02) 693 9517 or 693 9515 


30 Learning with YC 














Graphics Techniques-Pan: 


Graphics tend to be processor intensive which makes 
them slow by default - here are some techniques to 
speed things up! 


F ROM THE TIME of their invention, 
computers have been designed to 
be ever faster. But why? To start, 
eliminating delays can have a 
powerful effect on programs, especially in 
the field of graphics. High quality, mathe¬ 
matically generated graphics are generally 
very processor intensive and, therefore, 
run very slow. Although, with the new 
wave of graphics orientated machines, 


such as the Amiga and Archimedes, speed 
is less of a problem 
If you don't have the fortune of owning 
a machine in the hyper-speed category, 
you realise that most of the current com¬ 
puters running a Basic interpreter are ex¬ 
ceedingly slow. This has resulted in a 
number of techniques being developed in 
both software and hardware to speed 
things along. 
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Figure 1 . In Orbit one dot quickly replaces another to give a flicker free image. 


Which Language To Use? 

V arious languages have been de¬ 
veloped which compare to Basic in 
ease of use, but compile into machine 
code to run at top speed usually 10 to 
100 times faster than Basic. One example 
is Pascal, which seems to be well suited to 
graphics manipulation due to its struc¬ 
ture. Otherwise, compilers are available 
for most versions of Basic. (When choos¬ 
ing a compiler make sure it includes a 
large collection of graphics commands as 
many do not support graphics at all.) 

Alternatively, you may create short sec¬ 
tions of machine code and access them 
from your Basic program. Of course, a 
knowledge of the workings of your micro¬ 
processor is required to perform opera¬ 
tions such as this, whereas compilers re¬ 
duce this need. One good technique is to 
program a working version completely in 
Basic and then write machine code for the 
slower sections, one at a time. 

There are two ways to create these ma¬ 
chine code programs; if the program is 
short, you can enter the code straight into 
Data statements and then Poke these 
numbers into a portion of memory. The 

10 < III ORBIT III 

20 * Array storage Demonstration. 

30 1 Miroslav Kosteckl, Sept. 1987. 

40 1 

50 MODE 1: GRAPHICS PEN 1 
60 DIM 3(180), c(160) 

70 DIM ax(180), ay(180) 

80 1 

90 DEG 'Store every 2 degrees 

100 FOR dg*0 TO 180 

110 s(dg>="SIN(dg+dg> :c(dg)-COS(dg+dg) 
120 NEXT dg 
130 1 

140 ox-320: oy«200 ‘Draw circle 

150 slze»160: ss=slze/3 

160 FOR dg=5 TO 180 STEP 5 

170 MOVE c(dg-5)*ss+ox, s (dg-5)*ss + oy 

180 DRAW c(dg)*ss+ox, s(dg)*ss+oy 

190 NEXT dg 

200 * 

210 FOR dg-0 TO 160 'Store points 

220 x-c(dg)*size+ox 

230 y=s((dg+66) MOD 10O)*slze+oy 

240 PLOT x,y 

250 ax(dg)=x: ay(dg)=y 

260 NEXT dg 

270 1 Move dot around 

200 FOR dg«l TO 180 

290 PLOT ax(dg-l),ay(dg-l),0 

300 PLOT ax(dg),ay(dg),1 

310 NEXT dg 

320 GOTO 200 

Listing 7. Orbit gives a demonstration of 
array storage. 
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subroutine (CALL), can then be accessed 
directly from the Basic program when re¬ 
quired. 

The second option involves using a 
compiler or assembler to generate the 
machine code and save it separately. 
When the routine is wanted at a later peri¬ 
od. it's loaded off the disk into the re¬ 
quired memory area. 

The examples presented throughout 
this series will be in Basic as the majority 
of computer users understand this lan¬ 
guage, and most computers come sup¬ 
plied with it as standard. However, it is the 
logic behind the program, the algorithm, 
which is of real interest. The demonstra¬ 
tion programs will be simple and there¬ 
fore easy to convert to other languages. 

An Animated Concept 

G enerating screens while a program is 
running tends to be a long and tedi¬ 
ous process. To counteract this, single 
screens of graphics can be stored and re¬ 
called later. However, real time move¬ 
ments, updated and animated screens 
must reach a certain speed to be useful. 
For example, when rotating a 3D model 
the calculations and complex screen 
manipulations must be made within a cer¬ 
tain time period. 

Essentially, animation gives the illusion 
of an object being 'alive'. Various proce¬ 
dures have been developed for this con¬ 
cept, the most common method is to draw 
an object in one position, calculate its 
next position and then erase the object 
and draw it in the new position. That's 
very similar to drawing pictures on the 
corner of a note pad and flicking through 
them to give the impression of movement. 

However, there's the problem of a delay 
between erasing an object and redrawing 
it. This causes a blank period and intro¬ 
duces flicker. Ideally, the object should be 
erased and redrawn in the same instant of 
time, eliminating the blank period. 

Another potential problem with flicker, 
is the fact that to make the movement ap¬ 
pear smooth, each frame must be updated 
faster than the eye can detect. This flicker 
free speed is around 20 frames per sec¬ 
ond. Thus, each frame should last for no 
more than V 20 th of a second. Although an 
acceptable speed may be slower, this 
speed can be readily achieved on small 
computers by applying certain techniques. 

Tables and Arrays 

T ables and arrays are used extensively 
in computers. Any group or sequence 
of numbers that must be easy to access ei¬ 
ther sequentially, or randomly, can be 
stored in an array. Computer graphics sys- 
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Figure 2. Flying Bird — the wings and body move one pixel at a time, so that the 
animation appears smooth. 


10 ' Ml PLYING BIRD Ml 

20 * Demonstration of Animation using Pxogramable Characters. 

30 1 Miroslav Kosteckl, September 1987. 

40 ' 

50 DATA 31,16,8,124,240,15,0,0,0,192,62,5,26,224,0,0,0,0,0,0,0,0,0,0,943 
60 DATA 0,15,4,62,120,7,0,0,0,192,63,2,13,240,0,0,0,0,0,128,0,0,0,0,846 
70 DATA 0,0,3,28,60,3,0,0,0,0,255,17,6,248,0,0,0,0,128,64,128,0,0,0,940 
80 DATA 0,0,0,15,30,1,0,0,0,0,255,248,3,252,0,0,0,0,192,160,64,0,0,0,1220 
90 DATA 0,0,0,7,15,0,0,0,0,0,255,4,249,254,0,0,0,0,224,80,160,0,0,0,1248 
100 DATA 0,0,0,3,7,0,0,0,0,0,31,224,130,255,0,0,0,0,240,40,208,0,0,0,1138 
110 DATA 0,0,0,1,3,0,0,0,0,0,31,224,192,67,124,0,0,0,248,20,232,0,0,0,1142 
120 DATA 0,0,0,0,1,0,0,0,0,0,15,240,224,32,67,124,0,0,252,10,116,128,0,0,1209 
130 DATA 0,0,7,120,240,16,33,62,0,0,254,5,58,64,128,0,0,0,0,0,0,0,0,0,987 
140 DATA 0,0,3,60,120,8,15,0,0,0,255,2,29,96,128,0,0,0,0,128,0,0,0,0,844 
150 DATA 0,0,0,31,60,7,0,0,0,0,255,1,22,248,0,0,0,0,128,64,128,0,0,0,944 
160 DATA 0,0,1,14,31,1,0,0,0,0,255,8,243,252,0,0,0,0,192,160,64,0,0,0,1221 
170 DATA 0,0,0,7,15,0,0,0,0,0,127,252,1,254,0,0,0,0,224,80,160,0,0,0,1120 
180 DATA 0,0,0,3,7,0,0,0,0,0,127,130,128,127,0,0,0,0,240,40,203,0,0,0,1010 
190 DATA 0,0,0,1,3,0,0,0,0,126,33,240,192,63,0,0,0,0,248,20,104,128,0,0,1158 
200 DATA 0,0,0,0,1,0,0,0,62,33,16,248,224,31,0,0,0,128,124,10,52,192,0,0,1121 
210 DATA 17091 
220 • 

230 SYMBOL AFTER 208 
240 DIM b$(16) 

250 tt-0 

260 FOR 1*45 TO 0 STEP -3: t-0 

270 FOR J*0 TO 2 'Read data and setup characters 

280 READ al, a2, a3, a4, a5, a6, a7, a8 

290 t*t +al +a2 +a3 +a4 +a5 +a6 +a7 +a8 *<<<checksum for errors 

300 SYMBOL 208+l+j, al, a2, a3, a4, a5, a6, a7, a8 

310 NBXT j 
320 1 

330 READ s: IF sOt THEN PRINT "Error in Data line";16-l/3: STOP 
340 tt*tt+t 1 <<<2nd overall checksum 

350 b$(16-l/3)»" " +CHR$(208+1) +CHR$(209+l) +CHR$(210+i) 'store groups 

360 NEXT 1 

370 READ ss: IF ssOtt THEN PRINT "Error In Data- check for double copies" 

380 • 

390 J*l: delay*20 ' Loop for movement 

400 FOR 1*1 TO 16 

410 LOCATE J,10: PRINT b$(i); 

420 FOR d-1 TO delay: NBXT d 
430 IF 1*8 OR 1*16 THEN j«j+l 
440 NBXT 1 
450 GOTO 400 


Listing 2. Flying Bird demonstrates animation using programmable characters. 
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terns make use of arrays to store represen¬ 
tations of objects, to store sequences of 
movements, and many other attributes of 
the graphics screen, with its movement 
and calculations. This flexibility quickens 
execution of graphics and makes the pro¬ 
gram much easier to follow. 

Storing numbers in a two dimensional 
array to represent objects on the screen 
has been standard practice for many 
years. Objects can be represented in an 
array where the program only tests and 
manipulates the array. In turn, a graphics 
program would use the array to produce 
the graphics on screen. A simple example 
would be to store either 0, 1 or 2 in a 3 x 3 
array to represent a blank space, or a O or 
X in a game of tic-tac-toe. Similarly, image 
descriptions are stored for easy manipula¬ 
tion of 3D objects for rotation and move¬ 
ment. 

Into Orbit 

T he Orbit program in Listing 1 reveals 
some of the routes arrays can take to 
speed up both the generating of still 
graphics and animated sequences. 

Sines and cosines as well as any other 
functions can be stored in arrays for later 
access, especially if they take a long time 
to calculate. In this program we store the 
sine and cosine value for every degrees. 

Shapes are much more quickly drawn 
using short lines between points so that 
only these particular points need to be 
calculated. In the program, a circle is 
drawn using lines from the preceding 
point to the current point in steps of 10 
degrees. 

If points are to be accessed frequently, 
store the points in an array for later use. 
The program also plots the stored points 
to show its workings more clearly. 

The last section is the actual loop which 
moves the dot from point to point. The 
technique is to wipe out the last dot and 
plot the current dot as quickly as possible 
to avoid flicker due to the blank period. 

Figure 1 shows a graphic printout of the 
process where one dot is quickly replaced 
by another to give a flicker free image. The 
points plotted here are principally blank 
except for one particular ever-changing 
pixel which gives the impression of mov¬ 
ing around the circle by switching from 
one point to the next. 

Programmable Characters 

O n the majority or graphics systems, 
you can program the individual 
characters which make up the text screen 
by defining the dots that the character 
consists off. Systems such as these are 
called programmable graphics, or sym¬ 
bols. Various alphanumeric styles and 


In a different mode . . . 

Rem N8 include "Def tno*fset<x j y)~160 # y + ( x On 1 ) }i 

Sub Pdraw(zx ) zy >dotcoI or ) Static 
Rem draw a point 

dotnow = Peek(footfset<zx>zy ) ) 

If zx Mod 2 <> D 

Then dptclr - (dotnow And &h t D) Or dotcplor ^ 

Else dotclr ^ (dotnow And &h f ) Or (dotcoI or # 16) 

Poke fnaffset(zxjzy) > date Ir 
End Sub 

Sub Ldraw(xl>yl*x2jy2)datcalar) Static 
Rem dr aw a line 

deltax " x2~xl : d©Itay~y2-y1 
It deltaxOQ Or deltayOQ Goto Hline 
Cal I Pdraw(xl> yl j dotea I or) 

Ex i t Sub 

HI i ne 1 

It deltayOQ Goto Vline 

For z x ™ xl To x2 Step Sgn(deltax) 

Call Pdraw(zx^y1 j dotco1 or) 
next zx 
exit sub 

V! ine : 

H deltaxOQ Goto DP I i ne 

For zy~yl To y2 Step Sgn(deltay) 

Call Pdraw(x1jzy j dotcoI or) 

Next zy 
Exit Sub 

DP I ine ■ 

It Abs(deltay) < Abs(deltax) Goto DM I ine 
slope = deltax / deltay 
For zy -y 1 To y2 Step Sgn(deltay) 
zx « slope # (zy-yl) f- xl 
Call Pdraw(zx t zy > dotcoI or) 

Next zy 
Exit Sub 

DMl ine : 

slope - deltay / deltax 

For zx » xl To x2 Step Sgn(deltax) 

2 v - slope # (zx-xl) + yl 
Cal I Pdraw(zxizyidotcoI or) 

Next zx 
End Sub 

Sub Setup Static 
rem set-up for Io~r e s graphics 
Screen 0 j LI i dth 80 
Key OttiCIs 
Out Kh3D0 t 9 
a~Kh3D4*d m 8.h3D5 
Out a j 4:Out d > &h7F 
Out a > 6 : Out d t &h64 
Out a t?:0uf d>&h7Q 
Out a j 9:Out d j 1 
Det Seg - KhB8QQ 
For c =0 To &h3FFE Step 2 

Poke cjKhDE^Pake c+liD 

Next c 
End Sub 

Sub Rest Static 
rem re-set to 80x25 text 
a~&h3D4 ■* d-&h3D5 
Out a >4 : Out d >&K1F 
Out a>6 ; 0ut dj&hl,*? 

Out a > 7 : Ou t dj&hlC 
Out a ) 9!Ou t d»7 
Cl s 

End Sub 


Listing 2. Low resolution 
graphics for the IBM PC/XT. 
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If you're feeling more adventurous, try these routines 
for low resolution graphics on the IBM PC/XT, 
compliments of Jeff Richards. 

THE IBM PC XT CCA has a low resolution graphics mode that is not imple¬ 
mented in the BIOS and not documented. Using this mode involves resetting 
some of the screen controller's registers and doing direct screen access to con¬ 
trol the pixels. Resolution in this mode is 160 x 100 with 16 colors (although 1 
colour is black, and another is bright black!). 

Three routines are presented here The first is a collection of QuickBASIC 
subprograms to draw pixels and lines, the second and third are two programs 
that use the pixel-drawing subprogram to demonstrate the new mode. Scatter 
draws a display like a kaleidoscope. Lines creates 16 projectiles (2 are invis¬ 
ible) and bounces them around the screen leaving a coloured trail. 

Note that the initialization subprogram (Setup) must be called before plot¬ 
ting any points, and the de-initialization subprogram (Rest) must be called be¬ 
fore returning to the operating system. 

The subprograms first appeared in a form for BAS1CA in Dr Doftfs 1 ournai - 
Number 84, October 1983. To make life easier (for those of you with a 
modem), these listings are on YC's Bulletin Board). 


0efint a 

Def f no ff set ( x > y ) “160 # y + ( x Or 1) 

Oim d o t c ( 15 ) i xpos(15) > y p a s ( 15) > cdir(15) 


Ca I t Setup 
Far i= 0 to 15 
do11: ( i ) - i 

xpos(i) - 80 

ypos(i) = 50 
cdir(i) - I nt ( Rnd#4.) +1 
Next t 

Wh ile I nkey$ = "" 

For i =0 to 15 

1+ rnd<.2 Then cdir(i) - Int(Rn)+1 
x i n c = 1 f I f c d i r ( i ) > 2 Then x i nc“-l 
ync^l : I 1 cdir(i) Mod 2 0 Then yinc=~l 

xpos(i) 3 xpos(i)+xinc ; ypD5(i)=ypos(i)+yinc 
H xpob( i )<0 Then xpas(i) 3:: 0:cdir(i)=cdir(i)+2 
Else If xpos(i)>159 Then xpas < i )-15? * cdir < i )«cdIr < l >-2 
If ypos(i)<Q Then ypos(i)=Q : cdir(I)=cdir(i)-l __ 

Else If ypos(i)>99 Then y pos ( i ) *=99 1 cd i r < i ) d i r ( i ) + 1 
Cal I Pdrau(xpo5< i ) >ypos( I ) j da tc ( i )) 

Next i 
We nd 

Call Rest 
System 


Listing 2. Lines a pixel drawing program to demonstrate the undocumented loxo 
resolution graphics mode . 


Detint a-z 

Def fnoffset(xjy)-160 * y f (x or 1) 


Cal! Setup 
While InkeyS ~ Ji}> 

dotcolor “ int(rnd#l£) 
n = Int(Rnd#50) Int(Rnd*50) 
Cal I Pdr aui ( 60-n > 50-m > dot co f Or ) 
Cal I Pdraw<80-n,50 + rm dotcoI or ) 
Cal I Pdraw<Q0f-n>50-m)dotcolor) 
Ca I i Pdrauj(80f-n)50 + m,dotcolor ) 
Cal l P d r aw(0 0-m j 5 0 ~ njdotco1 or ) 
Call Pdraui (00-m > SOT n * dotcq I or ) 
Cal I Pd r aw ( 80Tm > 50-n > dot co I □ r ) 
Cal I Pdrau(80fmjS0 + n tdotco I or ) 
Wend 

Call Rest 
System 


Listing 3. Scatter — .this 
program will give a kaleidoscope 
display with 16 lines bouncing 
around the screen leaving 
coloured trails . 


graphics symbols can be created with this 
method, and dedicated editors exist which 
help the process along. 

Programmable characters have the su¬ 
periority of being faster and simpler than 
plotting and drawing shapes, characters 
and graphics. However, as with most 
things in life, there are disadvantages: for 
example, they have to be located within a 
particular character position. This can be 
overcome on some computers by fixing 
the graphics system so that it prints 
characters onto the graphics screen in any 
dot position. 

As a general rule, programmable 
characters can be displayed in only one 
shade or colour. By setting the back¬ 
ground as transparent, though, some sys¬ 
tems can overlap many layers to produce 
multiple coloured character blocks. On 
some graphics machines, such as the 
Commodore 64, automatic sprites are 
even possible. They are similar to pro¬ 
grammable characters but contain a 
higher degree of flexibility. After specify¬ 
ing the direction, speed and distance, the 
computer moves the sprite without eras¬ 
ing the background. Automatic collision 
detection between sprites also exists. 

In most cases, the characters are stored 
in strings and printed onto the screen 
whenever their services are required. Con¬ 
trol Characters to locate these -symbols 
anywhere on the screen are generally in¬ 
cluded. Animation is achieved by display¬ 
ing one character and then switching to 
the next one, and the next, and so on. 
Movements can be generated by switching 
between transparencies. 

Flying Bird Program 

I n Figure 2. you can see what has been 
done to the basic bird character it 
has been moved forward step by step with 
its wings moving one pixel along each 
time, so that the animation appears 
smooth. It's not necessary to keep a 
character rigid. 

The first thing you notice about the pro¬ 
gram is the heavy use of data (which.is 
’check-summed to reduce errors). The 
data is read and converted into symbols 
or programmable characters. The com¬ 
mands and technique differs slightly from 
machine to machine. 

The characters are then stored in an 
array following the order that they are 
shown in. 

The method of display here is: move to 
one location, display eight frames, move 
to the next location and display the next 
eight frames, and so on. This culminates 
in the creation of a life-like flying bird. 

Next, we’ll examine more sophisticated 
techniques tospeed up animation. □ 


34 Learning with YC 





Graphics Techniques -Part3 

Even with the techniques in Part 2, computer graphics 


can still be 


P ICTURE THIS: You have finally 
completed a brilliant graphics pro¬ 
gram which is your one way ticket 
to wealth. But, of course there is 
just one last problem the program runs 
too slow, After carefully examining the 
situation, you find that the movements of 
data around the screen memory are hold¬ 
ing up the system. However, this com¬ 
puter cannot push data around any faster 
It's already at top speed, it seems, 

If this hasn't happened to you yet, it 
soon will. So, is there anything a program¬ 
mer can do without using scissors and 
pliers on the wiring? Believe it or not 
most computers already have inbuilt de¬ 
vices to solve this problem. 

Block movement 

owever, before we examine these de¬ 
vices, lets take a look at what a ‘block 
movement' is. Put simply, a block move¬ 
ment is the transfer of a large number of 
data bytes or words. These transfers can 
be made within the main memory storage 
or between another device on the outside. 
This type of mass movement is made 
within your computer very often, 

As an example, one common block 
movement is storage of the graphics 
screen memory onto a disk. This process 
lets you take your time to generate the 
graphics but allows quick access when it’s 
needed. Your computer's instruction 
manual will contain the necessary com¬ 
mands. Of course, your screen memory 
may be stored in a different section of the 
main memory instead of the disk. 

A more useful block movement saves 
only a small section of the screen at a 
time. These rectangular areas of the 
screen are customarily called graphics 
windows. Because much less data needs 
to be moved, each block move is much 


slow - so let's look at more 
paths to speed . . . 

faster. Small graphics windows also per¬ 
mit you to store many more windows in 
your memory space. 

The remarkable versatility and speed of 
the graphics window system has made a 
big impact in animating computer graph¬ 
ics. Split second frames for animation are 
created and stored beforehand. Then the 
frames are recalled at high speed to create 
an animated scene — see Figure I. Of 
course, the animation does not have to be 
recalled to the same place as it was gener¬ 
ated. The location may even be made to 
move around while the animation is hap¬ 
pening. 

Great, now that we know what block 
moves are, what about our original prob¬ 
lem? What can we do to speed up these 
transfers? 

DMA controllers 

he majority of computers have dedi¬ 
cated brute 'servants' to do their block 
transfers for them while they get on with 
the complicated calculations. These Direct 
Memory Access controllers (DMAs) really 
do have minds of their own but are much 
less intelligent than their master, the Cen¬ 
tral Processing Unit (CPU). 

The CPU will leave messages telling the 
DMA which block moves to make along 
with other special instructions. It passes 
these commands by leaving messages in 
the DMAs registers. Registers are in effect, 
just message boxes. 

A DMA will do the actual work of mov¬ 
ing memory sections with little disturb¬ 
ance to the CPU. This means the CPU can 
be making calculations instead, so, over¬ 
all, the program will run much faster. In 
fact, on most systems, a DMA can transfer 
data a great many times faster than the 
CPU could anyway. 


sophisticated 


Recently developed computers have a 
device (Bit Blitter) similar to a small army 
of DMAs under the control of their own in¬ 
telligent controller device. These Bit Blit¬ 
ters are on most occasions connected di¬ 
rectly to the graphics screen memory for 
incredibly fast block movements. The 
Commodore Amiga and Atari Mega ST 
owe a large portion of their graphics 
power to the Bit Blitter chips. 

Check if your computer has a DMA de¬ 
vice or a Bit Blitter. To use the device you 
will need to find out about its register 
structure and the commands to use. The 
time you spend on research will be well 
worth it. 

So far we have assumed that we must, 
literally move the data from one position 
of the graphics screen to the next. In fact, 
what we really want is to display the block 
of data at a different position on the 
screen. If we could change the position of 
display, the graphics data can stay where 
it is. This leads us into examining the 
video display system more closely. 

The CRT controller 

t the heart of any video display sys¬ 
tem is a device called a CRT Control¬ 
ler. This is another 'slave' tool which is 
controlled by a register system, like the 
DMA units described above. However, this 
device has the job of converting the 
screen memory into video signals for the 
display monitor. And like most computer 
circuits today, these CRTCs are designed 
to be remarkably flexible. 

The chip will construct its video signals 
in the way specified by its registers. 
Changing one of these registers will alter 
the display on your monitor without any 
of the screen memory being moved at all. 
Therefore, this change can happen within 
millionths of a second. 
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One or two of the registers will control 
the scrolling of the display, either up, 
down, left or right one pixel or character. 

Another register may point to the 
screen memory area. When a second dis¬ 
play is needed, all you need to do is 
change the pointer. In fact you might 
switch it between many screen memory 
areas. 

Usually, when extra screens are set up, 
programs are working on a screen which is 
not actually being displayed at the time. A 
switch is made to this screen only when it 
is totally completed, giving the user an in¬ 
stantaneous. new display. 


Palette switching 

R ecent video control systems, and 
sometimes CRT Controllers them¬ 
selves, contain something which deserves 
a section of its own a Palette Switching 
system. 

The range of available colours on most 
computer systems is much greater than 
the number that can be displayed at any 
one time. This complete range of colours 
is called the ’Colour Palette’. You must as¬ 
sign a colour from this palette to each of 
your 'pens’. 

For example, the palette may contain 
512 colours, while the video display can 
handle only 4 at a time. So each of the 4 
pens is given one of 512 colours from the 
palette. The next stage involves the stor¬ 
ing of the 4 colours by the Graphics Dis¬ 
play System so that the pens appear on 
the screen in their selected colours. 

The real power of this system is that by 
simply changing the colour selection, all 
of a particular pen on display will change 
colour instantly. At first, the usefulness of 
changing colours seems to be limited to 
just flashing between different colours 
However, some interesting changes hap¬ 
pen when you start to select the same co¬ 
lour for different pens. 

As an example, take a look at the UFO 
program in Listing 1 First, an oval is 
drawn at 45 degrees on the screen. Spokes 
are then drawn through the center of the 
oval in 13 different pens, each a different 
colour. The screen has now been set up for 
palette switching. 

All 13 pens are now set to the back¬ 
ground colour, thus turning them invis¬ 
ible. Pen I is then set to white, causing it 
to be the only visible spoke in the oval 
wheel. To create the appearance of the 


Step 1. Generating the franes. 
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Figure 1. Split second frames for animation are generated and then moved to memory; the 
image is animated by recalling the frames from memory at high speed. 



The purpose of any interrupt is 
to tell the conputer that it nust 
for a certain reason., tenporarily 
suspend what it is doing. 


Figure 2. The purpose of the interrupt might be to make another scan of the keyboard , 
bring about an update of the screen or just to tell the CPU that the video has finished a 
screen frame. After dealing with this interruption , the central processor will continue 
where it left off. 
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spoke transferring to the next position is 
quite easy. We simply return the pen to 
the background colour and set pen 2 to 
white. This redirection of colour is almost 
instantaneous. Note, though, that none of 
the pixels on the screen have actually 
moved, only the colours have changed. By 
repeatedly moving from one spoke to the 
next in this way the line can be forced to 
rotate at fantastic speeds. Try the program 
yourself and increase the delay to study 
the effect more closely. 


10 * ££££ UFO ££££ 

20 * Palette switching demonstration 
30 * Miroslav Kostecki. August 1987. 
40 * 

50 • setup 16 colours 

60 * out of 27 on 640x400 screen 

70 MODE 0 

80 DIM s(210), c<210) 

90 s 1 = 300: s2-s1/2 
100 e=360/13/16 

110 * precalculate points along oval 
120 k*l: DEG 

130 FOR a=0 TO 360+e+e STEP e 

140 ctk)*sl»CDS<a)+320 

150 st k)»s2*SIN< a)+c(k)/4+120 

160 k*>k +1 

170 NEXT a 

180 GOSUB 400 

190 MOVE 320»200: FILL 15 

200 INK 15,10: INK 14,18 

210 FOR a»1 TO 104 

220 GRAPHICS PEN (a MOD 13)+1 

230 MOVE c(a),s(a) 

240 DRAW c(a+104),s(a+t04) 

250 NEXT a 
260 GOSUB 400 
270 INK 0,0: BORDER 0 
280 * 

290 ’rotate the bright colour 

300 delay«40 

310 FOR i*2 TO 13 

320 INK i-I,10: INK 1,26 

330 FOR d=1 TO delay: NEXT d 

340 NEXT i 

350 INK 13,10: INK 1,26 
360 FOR d=t TO delay: NEXT d 
370 GOTO 310 
380 ’ 

390 ' draw outside of oval 
400 GRAPHICS PEN 14 
410 FOR a-1 TO 208 
420 MOVE c(a) , s(a) 

430 DRAW c< a+1),s(a+1) 

440 NEXT a 
450 RETURN 


Listing 1 . The UFO program . 


A similar method uses groups of pens 
which are turned on at the same time. By 
'turning off' the last pen and switching on 


the next one in the row, the whole group 
will seem to move slightly forwards. This 
might leave half the pens 'on' and half 
'off'. Notice, though, how much smoother 
the movements are when small parts are 
changed. 

Animation using pallete switching 
doesn't end here. Think of the even more 
incredible animations that can be created 
by utilizing shapes instead of lines. How¬ 
ever, beware! The speed of palette switch¬ 
ing is much too fast for most computers. 
So fast in fact, that delay loops will be¬ 
come almost a necessity in the majority of 
your programs. 

Normally, a computer reads each por¬ 
tion of memory by accessing its own 
unique address, like a different telephone 
number for each house on your street. A 
few years age, most 8-bit computers ran 
out of any new addresses when they 
reached the 64 kilobyte mark. This is ac¬ 
counted for by the fact that the total num¬ 
ber of combinations is 65,536 for these 
machines. 

Most new computers bypass this limit, 
or the new 640 Kbyte limit set by an IBM 
PC, by using Bank Switching. The idea is 
similar to having an STD area code in front 
of a telephone number. Imagine having, 
not one, but four 64 Kbyte 'banks’ of 
memory on your 8-bit computer. Each of 
these banks can be accessed by changing 
the bank number (1-4) first. This gives a 
total 256 Kbyte of usable memory. 

Of course, the obvious advantage is that 
more graphics screens and windows can 
be stored. However, the addresses stay 
the same for each bank, so most video 
control systems will display the same area 
within a different bank. This means that 
one screen memory block can be trans¬ 
ferred to the next by simply changing the 
bank. 

This system is simple, but gives you 
headaches when you try writing programs 
for the system. The programs tend to 
switch around with the banks. If possible, 
manipulate the CRT controller instead, as 
described above. 

Check the memory map on your com¬ 
puter to make sure it does switch banks. 
Then, if you plan to use the system, get as 
much information as you can about the 
switching and how it affects your video 
controller. 


Now that our graphics is switching and 
moving fast enough, how do we control 
them efficiently? 

Interrupts 

hile the CPU in your computer is at 
work, a timer or a similar device will 
periodically send an emergency line to the 
processor. Usually, the type of emergency 
is also sent. Immediately, the processor 
will temporarily leave its current program 
and attend to the interrupt. The purpose 
of the interrupt might be to make another 
scan of the keyboard, bring about an up¬ 
date of the screen or just to tell the CPU 
that the video has finished a screen frame. 
After dealing with this interruption, the 
central processor will continue where it 
left off— see Figure 2. 

These interrupts remain among the 
most powerful instruments in computer 
programming. One reason is that, on the 
whole, a computer will run faster because 
routine checking is done automatically. 
Another reason is that programs tend to 
be much simpler and thus, less prone to 
errors. 

For example, an interrupt may alert a 
program that a graphics character has 
reached the edge of the screen. This 
means that the main procedure can con¬ 
tinue moving the character without con¬ 
tinually testing for the edges. Another use 
is to interrupt a program when a 'blank' 
occurs in the video signal. The screen can 
then be updated with no visible flicker or 
tearing. 

Most computer programming lan¬ 
guages support the use of interrupts. 
Newer strains of Basic even allow timed 
interrupts and interrupts to control the 
sound system. Check the index of your 
programming manual. 

However, a word of warning, the mas¬ 
sive use of interrupts will restrict the 
speed of the main program. If no care is 
taken, you might find that the computer is 
only processing interrupts, with no time 
left for the main procedure. Your com¬ 
puter will then 'hang' and never finish its 
program. 

By now your graphics are zooming 
around the screen. What you need is some 
techniques to produce better graphics. 
Next time I will show you some acrobatics 
with line graphics as they reflect, enlarge 
and rotate. □ 
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Do computers 
play any part in 
your life? 



a 




REVIEWS 


programs 


iropiALS 


REVIEWS 


PROGRAMS 


v 




If they do — or if you 
just want to find out 
about them — don't 
miss each month's 
issue of YOUR 
COMPUTER 


A magazine for all computer users, YOUR COMPUTER has 
something for everyone — topical features on all aspects of the 
computing world, expert reviews of the latest software and 
hardware, up-to-the-minute information for business people. 
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Now that you're familiar with the basic techniques of 
computer graphics, animation, memory use and 
interrupts, it's time to write your own CAD system! 


2DATRANSFER 

5DV±BVl/12LEtS 


2DATRANSFER 

W ^TRANSFER 

s 





A NSf', 




Figure 1 . A printout of '2D Transfer ' in various reflections, rotations, enlargements and 
stretchings. 


W HEN CONSIDERING graphics 
on a computer, we tend to 
think of stick figures, line dia¬ 
grams and shapes. Although 
much more realistic techniques exist 
today, two dimensional line drawings are 
still the most common form of graphics 
used in business and industry. It's no 
wonder then that thin line grids and wire 
mesh designs have been the hi-tech look 
for many years. There is one type of pro¬ 
gram, in particular, which promotes this 
look. 

Have you ever wanted to use the com¬ 
puter to design furniture or electronic cir¬ 
cuitry and automatically receive the plans 
from it? Computer programs created to 
perform functions such as this do exist, 
ready to use, but at a price! 

They are called Computer aided design 
or Cad programs. Today, many manufac¬ 
turers simply would not be in business if 
left suddenly without their use. Units such 
as buildings, machines, maps and even 
computers are all designed with Cad. 

The point is, all Cad programs rely on 
interconnecting line techniques a great 
deal. In fact, it's these techniques and 
procedures which perform all the calculat¬ 
ing work of zooming into maps, rotating 
machine cogs or moving components 
around a circuit board. 

Flexibility is the key to this type of work, 
so most graphic design programs are ex¬ 
tremely versatile. By concealing compli¬ 
cated logic behind simple hand move¬ 
ments, you can create almost anything, 
nearly without thinking. This makes test¬ 
ing new ideas almost fun fa dirty word at 
respectable businesses)! 


For more information on Cad and simi¬ 
lar graphics programs, see the feature arti¬ 
cles in the November 1987 issue of Your 
Computer. 

How it's done 

f course, there is not enough space 
here to discuss all the details of Cad. 
Many large books have been published on 
the subject and these are by no means ex¬ 
haustive. However, by examining the way 
in which some simple transfers are exe¬ 
cuted, we can obtain a good overall idea 
of how these work. 

The sample printout of 2D Transfer (see 
Figure I) in various reflections, rotations, 


enlargements and stretchings, will give 
you some idea of what can be done even 
with a simple program. Try the program on 
your computer first, then carefully follow 
Listing I as we explain the various parts. 

First you must understand how the 
shapes and figures are stored within the 
computer. This is essential if you want to 
understand the changes and movements 
because this stored information is what 
really changes. The display program sim¬ 
ply exhibits what is in storage. 

Think of the way you draw up a shape in 
line graphics using the Draw command in 
Basic. A starting point is selected. Then a 
line is drawn to the first point. From here, 
a second line continues to a second point. 
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a third point and so on until the shape is 
drawn. The only information needed to 
draw the shape are the points at all the 
corners The lines between the points are 
drawn automatically. It is these points 
that we need to store to draw the shape 
again. 

Our program stacks the points by first 
storing the number of points in the shape. 
Then the starting point is given, followed 
by the other points. Of course, they are all 
pairs of x,y co-ordinates. The succeeding 
shapes are similarly stored. 

The program uses separate Data state¬ 
ments for these shapes. Notice that an 
end is reached when zero is found for the 
number of co-ordinates in a set. 

Where do we encrypt all this data? The 
Read Data section will store all the x co¬ 
ordinates in the a() array, the y co-ordi¬ 
nates in the b() array and the number of 
points in each shape are amassed in the 
s() array. 

To draw our shapes, the subroutine at 
line 780 is used. This works as follows: the 
number of points in the first shape is 
taken from the first number in the s() 
array. Starting at the first point stored, we 
draw this number of lines using the 
points. 

The next number is taken out of the s() 
array and the next shape is drawn until the 
number in the s(| array is zero. Of course, 
we keep track of where we are in the s() 
array (the i variable) and the a(),b() arrays 
(using the j variable). 

Notice that when the shape is drawn, a 
constant value of x and y is added to 
them. This is the starting point or 'offset' 
amount and is added to shift the actual 
position where the shape is drawn. By 
changing x and y we can make the shape 
appear anywhere we desire. 

The position is modified in the subrou¬ 
tine at line 900. To enter this section, 
press the shift key and move the shape 
using the cursor keys. Figure 2 shows how 
this offset point shifts the shapes posi¬ 
tion. 

Manipulating the point 

N ow, because the stored points start at 
or near 0.0 the manipulations are 
really very simple. For example, to enlarge 
or shrink the shape we multiply every 
point in the arrays a() and b() by a certain 
factor. To double the size, simply multiply 
them by 2. This shrinking and enlarging is 
done with the short subroutine starting at 
line 620. 

Compresses and stretches are even 
easier: just scale the variable you want in 
the direction you need. For example, to 


(10*2 + x), 



Figure 2. How an offset point shifts the shape*s position (see line 900 in Listing 1). 



Figure 3. This shows what the equations in line 740 of Listing 1 achieve. 


compress the word to half its length, just 
multiply all the a() arrays by half. The tiny 
subroutine designed to do this is found at 
line 580. Again take a look at Figure 2 to 
see a visual representation of how this is 
accomplished. 

Another manipulation is the reflecting 
of shapes up, down, left and right. At first 
you might think that a manipulation such 
as this would be very complicated. Actual¬ 
ly, it is the easiest manipulation. To reflect 
in the x axis we make the whole a() array 
negative and similarly for the y axis. These 
two subroutines are located at lines 500 
and 540. 


Now for the difficult part: rotations. The 
’rotate by an angle' subroutine starts at 
line 680 and takes some basic mathemat¬ 
ics to understand it. The variable T is the 
distance from position 0,0 to the point; 
the equations at lines 720 and 730 work 
out this distance. It distance must stay the 
same if we rotate around the point 0,0. 
Only the angle, as represented by the vari¬ 
able 'ag' changes; -10 or +10 degrees in 
this program. 

Now the new point can be worked out 
by using the fact that for a line from 0,0; x 
is the cosine of the angle multiplied by 
the distance and y is the sine of the angle 
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multiplied by the distance. These equa¬ 
tions are used in line 740. The variable 'q‘ 
is the old angle and ‘ag’ is the amount we 
want to change it by. So we end up land¬ 
ing our new point at a new angle, but the 
same distance around 0,0. To rotate the 
whole series of characters, every point 
must undergo this process. 

If that was over your head, try looking at 
Figure 3 as you read the explanation 
again. 

To speed things up 

ow that you've tried the program, you 
will have noticed that the rotation 
takes a good deal more time than the 
other transfers. This is due to the more 


complicated number crunching that is in¬ 
volved. To speed up the process, you may 
like to try storing ail the sines, cosines and 
tangents in arrays and then use these ar¬ 
rays instead of calculating the functions 
every time. 

Another way of speeding the process is 
to store the lengths to each point from 0,0 
and also the angles at which the points 
are positioned. 

This eliminates the need to work these 
out at all. By storing points like this, rota¬ 
tions and enlargements will be calculated 
much faster. However, the subroutine 
which draws the shapes will need to be 
more complicated and so much slower. 

Of course, the faster the computer the 


faster the manipulations. The resolution 
too has the usual effect?8a higher resolu¬ 
tion is much clearer and more accurate, 
but it is quite a bit slower because of the 
greater amounts of data that must be 
manipulated. 

If you work with this faster breed of com¬ 
puter. maybe you are already familiar with 
these techniques. The latest computers 
are using these new graphics concepts to 
add great flexibility to character presenta¬ 
tions and the way in which they can be 
manipulated. Recent computers such as 
the Archimedes by Acorn even let you 
redefine the standard text characters in 
this way. I think we will see more of this 
type of flexibility the future. □ 



to ’ £££ 2D UNE TRANSFERS? £££ 

20 ’ Miroslav Kostecki. Nov, 1987. 
30 ’ 

40 MODE 1: INK 1,0: INK 2,13 
50 DIM a(100), b(100), s(20) 

60 * 

70 * 2D/NTRANSFER 


80 DATA 7 ,0,48,29,48,36,38,36,22,31,19,0,9,0,0 
.36,1 

90 DATA 7 ,46,1,46,48,69,48,84,39,87,23,84,10,71 
.0,47,0 

100 DATA 3 ,98,0,129,48,161,0,98,0 

110 DATA 3 ,176,0,177,48,152,48,202,48 

120 DATA 8 .214,0,215,48,243,48,253,39,253,27,241 

,21,215,21,230,21,253,0 

130 DATA 4 ,265,0,289,49,313,1,306,13,270,13 

140 DATA 3 ,322,1,323,49,363,0,363,49 

150 DATA 9 ,375,0,402,0,409,6,409,18,400,24,382,24 

,375.30,375,43,381,49,409,49 

160 DATA 2 ,420,0,420,49,465,49 

170 DATA 1 ,420,25,451,25 

180 DATA 3 ,527,49,479,49,479,1,526,0 

190 DATA 1 ,479,24,516,24 

200 DATA 8 ,541,1,541,48,572,48,582,39,582,29,572 
,20,541,20,562,20,582,1 
210 DATA 0 ,129,13 


220 ’ 

230 ’ Read DATA 

240 CLS * x = 100: y=100: t=0: ee=0 

250 ’ 

260 READ n: s(t)?n: t = t+l 

270 IF n=0 THEN 350’ last data line 

280 READ a,b: MOVE a+x,b+y 

290 a(ee)=a: b(ee)= b: ee=ee+1 

300 FOR 1-1 TO n 

310 READ a,b: DRAW a+x,b+y 

320 a(ee)=a: b(ee)=b: ee=ee+t 

330 NEXT: GOTO 260 

340 ’ 

350 READ a,b: MOVE a+x,b+y: FILL 2 
360 a(ee)=a: b(ee)=b 
370 ’ 

380 ' press keys to manipulate 


390 

400 

410 

420 

430 

440 

450 

460 

470 


IF INKEY( 
IF INKEY( 
IF I NKEY< 
IF INKEY< 
IF INKEY< 
IF INKEY< 
IF INKEY( 
IF INKEYC 
IF INKEYC 


2)=0 THEN r=0.9: GOSUB 620’ shrink 
0)=0 THEN r=1.1: GOSUB 620’ enlarge 
8)=0 THEN ag=10: GOSUB 680’ rotate It 
1)=0 THEN ag =- 10;GOSUB 680’ rotate rt 
39)=0 THEN r=0.9:GOSUB 580’ compress 
31)=0 THEN r=1 . 1 :GOSUB 580’ stretch 
30)= 0 THEN GOSUB 540’ reflect in x 
22)=0 THEN GOSUB 500’ reflect in y 
21)=32 THEN GOSUB 900’ move 


480 GOTO 390 
490 ’ 

500 ’ reflect in y 

510 FOR i=0 TO ee: b(i)=-b(i): NEXT 
520 GOSUB 780: RETURN 
530 * 

540 ’ reflect in x 

550 FOR i=0 TO ee: a(i)=-a(i): NEXT 
560 GOSUB 780: RETURN 
570 ’ 

580 * compress/stretch 
590 FOR i=0 TO ee: a(i)=a<i)*r: NEXT 
600 GOSUB 780: RETURN 
610 ’ 

620 ’ scale to shrink/enlarge 
630 FOR i=0 TO ee 
640 a(i)=a(i)*r: b(i)=b(i)*r 

650 NEXT 

660 GOSUB 780: RETURN 
670 ’ 

680 ’ rotate by angle *ag’ 

690 DEG 

700 FOR i=0 TO ee 
710 a=a(i): b = b(i) 

720 q=ATN(b/(a+0.000001)) 

730 1=SGR(a*a+b#b): IF a<0 THEN W-l 

740 a( i )=COS(q+ag )* 1 : b( i)=SINC q+ag )«1 
750 NEXT 

760 GOSUB 780: RETURN 
770 ’ 

780 ’ redraw graphic 
790 CLS; j=0 
800 FOR 1=0 TO t-1 
810 n = s(i) 

820 MOVE a(j)+x,bCj)+y: J B J+1 

830 FOR k=1 TO n 

840 DRAW a(j)+x,b<j)+y: j = j + l 

850 NEXT 

860 NEXT 

870 MOVE a( j-1 )+x,bCj-l)+y: FILL 2 
880 RETURN 
890 • 

900 ’ move around screen 

910 IF INKEY(21)< >32 THEN RETURN ' no shift 
920 IF INKEY(0)=32 THEN y=y+10: GOSUB 780' up 

930 IF INKEY(2)=32 THEN y=y-10: GOSUB 780’ dn 

940 IF INKEY(8)=32 THEN x=x-10: GOSUB 780’ It 

950 IF INKEYCt)=32 THEN x=x+10: GOSUB 780’ rt 

960 GOTO 910 


Listing L The 2D Transfer program. 
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-PirlS 


Two-dimensional mazes 
are easy, so let's design a 
three-dimensional maze we 
can see ourselves move 
through! 


W HAT COMES to mind when 
you think of a maze? Confu¬ 
sion? Tunnels and passages 
everywhere? Too hard to un¬ 
derstand? In fact, we also associate mazes 
with intelligence. It is generally accepted 
that the greater the intelligence, the faster 
a path will be found through a maze. 
Scientists create many mazes for animals 
of various types to test their reactions and 
intelligence. 




nsi 


Figure 2, A three dimensional viezv (top left) 
from within a dense two dimensional maze 
(bottom left). The view is shown looking 
south from the small arroiv shown 
h ighligh ted (above). 
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For example, there have been many 
robot mice specifically designed and pro¬ 
duced to find their way to a point in a 
maze, to advance the mechanical side as 
well as the intelligence side of robotics. 
Competitions are held every year or so to 
determine the fastest robot mouse to find 
its way through a maze. The fact is, mazes 
don't need to be confusing. When you un¬ 
derstand what they are, and how to con¬ 
struct them, they become very interesting. 

To start with, let's examine closely what 
a maze is. We know it is a complex net¬ 
work of paths or passages designed to 
puzzle those working through it. A similar 
system can be represented as a pattern of 
lines. They may range from round to 
square and include many shapes and 
sizes. One aspect common to almost all 
mazes is a connecting path which must be 
found between the beginning of the maze 
and the finish. 

The perfect maze would be a compact, 
but easy to follow system of paths. It 
would have only one possible path from 
any point within the system to any other 
point, but with a path existing for every 
point. This type of maze may appear im¬ 
possibly complex to be able to create in 
reality, but there is a simple technique 
which produces it. 

Branching 

F irst lets look at a system which already 
exists and has the above 'one path 
through' characteristic For this we would 
just have to look at any tree. Notice that 
from any branch on the tree, to any other 
branch, there is really only one path. You 
simply move along the branch to the trunk 
and from there to the other branch. Look 
at a tree and try it for yourself, but make 
sure no one is watching you! 

This type of branching can now easily 
be transformed into a simple procedure. 
To demonstrate this concept, simply draw 
a line on a piece of paper. From this line 
you then branch off in any direction. If you 
keep adding branches just anywhere and 
do not cross them over, you will have pro¬ 
duced precisely the same kind of branch¬ 
ing as on a tree. Notice that these 
branches are all the same width, the width 
ol the pen. so that it is much harder to 
find your way from one branch to the next. 

In replacement of pencil and paper, it is 
a simple matter to convert this procedure 
to computer see Figure I. Previously we 
have used straight lines, since the 


100 ’ MAZE DRAW, (c) 1988, Living Image 
110 ’ 

120 ’ 

130 'Setup screen 320 x 200 and array 
140 MODE 1: DEFINT a-z 

150 DIM j(2000),k(2000)' arrays for starting points 
160 CLG 1 * Clear graphics screen to ink 1, black. 

170 1 

180 ’Draw outer edge in ink 3 

190 FOR i=0 TO 10 

200 PLOT i,i,3: DRAW 639-i,i 

210 DRAW 639-i,399-i: DRAW i,399-i: DRAW i,i 
220 NEXT i 
230 ’ 

240 ’Overall starting point 

250 sx=INT(RND*20): sy=201-sx*8: sx=sx*8+239: s = 0 
260 x=sx: y = sy 

270 PLOT -10,-10, O ’ Change plotting ink to 0, white 
280 ’ 

290 'Construct Maze 

300 j(s)=x: k(s)=y: s= s+1 

310 GOSUB 490’ put square 

320 le=le+1: IF le>20 THEN 430 ’length >20 end branch 
330 d1=0 

340 a 1=TEST(x+8,y-8): a2=TEST(x+8,y+8) 

350 a3=TEST(x-8,y-8): a4=TEST(x-8,y+8) 

360 ON 4*RND GOTO 380,390,400 

370 dl=l: IF TEST(x+16,y)+a1+a2=3 THEN x=x+8: GOTO 300 
380 IF TESTC x,y-16)+a3+al=3 THEN y=y-8: GOTO 300 

390 IF TEST(x- 16,y)+ a3 + a4 = 3 THEN x=x-8: GOTO 300 

400 IF TEST(x,y+16)+a4+a2=3 THEN y=y+8: GOTO 300 

410 IF d1=0 THEN 370 

420 * select new branching point f rom those stored 

430 IF s=0 THEN 540 

440 s=s-1: m=INT(RND*s)+1: le = 0 

450 x=j(m): y=k(m): j(m)=j(s): k(m)=k(s) 

460 GOTO 330 
470 * 

480 ’Wipe a small block out 

490 PLOT x, y: DRAW x+6,y: PLOT x+6,y-2: DRAW x,y-2 
500 PLOT x, y - 4: DRAW ..+6,y-4: PLOT x+6,y-6: DRAW x,y-6 
510 RETURN 
520 ' 

530 ’Put Finish and Start 
540 x=619: y=I NT(RND*10)*8 + 22 
550 I F TEST(x-8,y)< >0 THEN 540 
560 y=y+2: x=x+4: GOSUB 490: x = x+8 
570 GOSUB 490 

580 x =27: y=I NT(RND*10)*8+206 
590 IF TESTCx+8,y)<>0 THEN 580 
600 y=y-6: x=x-12: GOSUB 490: x=x-8 
610 GOSUB 490 


Listing 1. Maze Draw is a simple but efficient routine for drawing a two dimensional 
maze - it uses the Test command to test points on the screen and a branching point army 
of 2000 points . 
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branches on a tree are usually fairly 
straight. However, if we use crooked lines 
instead, our lines will form more of a 
maze. It then becomes an arduous task to 
find the correct passage through. Of 
course, the lines still must not cross or 
touch other branches. Each branch still 
touches another only once. 

On a computer, a maze is usually con¬ 
structed by first drawing a grid of small 
boxes over the screen. An array is set up to 
store the state of every edge on the grid. 
Now as the edges are taken away, a pas¬ 
sage is constructed along the boxes. 
Branching is made by forming new pas¬ 
sages off the old ones. The computer can 
check if a passage exists by checking the 
array which is changed as the passages 
are constructed. 

Amazing improvements 

major consideration in the construc¬ 
tion of mazes is where the beginning 
of the first branching is going to occur. 
This point would be picked randomly, but 
far away from the start and end points. 
The beginning and end should be as far 
from each other as possible to increase 
the length and difficulty level of the path. 

Notice, too, that while a very large maze 
takes much longer to construct than a 
small one, it will be much more difficult to 
traverse. The size of the maze is normally 
limited by the screen resolution and 
memory capacity, as well as the speed of 
the computer 

Instead of using an array, the computer 
can simply check the state of the screen 
using a screen test command. This elimi¬ 
nates the need for arrays. Using the screen 
to test the maze also means that very 
large, complex mazes can be constructed 
on a high resolution graphics screen and 
little memory is being used. Array storage 
can be very heavy on memory when large, 
complex mazes are constructed. 

Another big improvement is to do away 
with the grid system all together and sim¬ 
ply construct the maze 'freestyle'. This en¬ 
ables a more complex maze to be made in 
a smaller space. A different checking sys¬ 
tem though, is obviously needed to scan 
the screen for other passages already con¬ 
structed. However, with greater complex¬ 
ity comes a problem: the computer will 
have to work harder to find suitable 
branching places. No need to worry 
though, this is overcome with the next, 
most important improvement. 

Many maze generating programs simply 
sample random spots in the maze to find 
a branching point which is suitable. This 
causes huge delays, especially when the 


maze has nearly filled its allotted space 
and there are few branching points left. 
There have been many methods to over¬ 
come this and the following one seems as 
good as any other. 

As the paths are constructed, block by 
block, the computer stores every point of 
every path. Then when the current branch 
stops, the programs simply picks a 
branching point out of the array and either 
starts from there, if it is legitimate, or 
eliminates the point out of the array and 
reduces the number of stored points. 
When the array runs out. then there are no 
more possible branches and the computer 
has completely filled the space. 


It seems that with this branch/storage 
method an extremely large array of points 
will be needed, but in reality an array of 
about 2000 points' is usually enough. 
When the 2000th point is stored, then the 
current branch stops and many of the old, 
useless positions are thrown out before 
another branch begins. 

The program given in Listing I, Maze 
Draw, uses all of the improvements de¬ 
scribed so far. It uses the Test command 
to test points on the screen and a branch¬ 
ing point array of 2000 points. A larger 
array may enable the program to proceed 
faster. Carefully type the program into 
your computer and observe how the array 


1000 '-Turn Maze into 3D display----■* -- 

1010 * 

1020 " Load maze into array 

1030 DIM x<15),t(15),b(15), m<80,50) 

1040 FOR i=0 TO 80 
1050 FOR j =0 TO 50 
1060 m(i , j ) = 1 

1070 IF TESTCi*8,j*8)=0 THEN m(i,j)=0 
1080 NEXT j 
1090 NEXT i 
1100 ’ 

1110 ’ Calculate perspective points and store 

1120 dx=250: tx=280: bx=400: x=-dx/3 

1130 x(0)=x: t(0)=250+ tx: b(0)=250-bx 

1140 s!=1.62 

1150 FOR i=1 TO 15 

1160 dx=dx/s!: x=x+dx: x(i)=x 

1170 tx=tx/s!: t=250+tx: t(i)=t 

1180 bx=bx/s!: b=250-bx: b(i)=b 

1190 NEXT 

1200 ’ 

1210 ’ Setup display 
1220 MODE 1: INK 0,13: INK 1,0 
1230 BORDER 9: INK 2,5: INK 3,20 
1240 x=RND*50+10.5: y=RND*30+10.5 
1250 IF m(x,y)< > 0 THEN 1240 
1260 PLOT -10,10,1 
1270 dx=0: dy=-l 
1280 ’ 

1290 * Main loop; display & wait for key presses 
1300 GOSUB 1470 ’ redraw 3d 
1310 LOCATE 1,1 

1320 IF dy = - 1 THEN PRINT "SOUTH"; 

1330 IF dy = 1 THEN PRINT "NORTH"; 

1340 IF dx= - 1 THEN PRINT "EAST"; 

1350 IF dx=1 THEN PRINT "WEST"; 

1360 IF INKEY(0)< >0 THEN 1390 

1370 IF m(x+dx,y+dy)=0 THEN x=x+dx: y=y+dy: GOTO 1300 
1380 IF m(x+dx,y+dy)=1 THEN SOUND 1,300 

1390 IF INKEY(8)-C THEN tt=dx: dx=dy: dy=-tt: GOTO 1300 
1400 IF INKEY(1)=0 THEN tt=dx: dx=-dy: dy=tt: GOTO*1300 
1410 IF INKEY(2)< >0 THEN 1440 

1420 IF m(x-dx,y-dy)=0 THEN x=x-dx: y=y-dy: GOTO 1300 
1430 IF m(x-dx,y-dy)=1 THEN SOUND 1,300 
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1440 GOTO 1360 
1450 END 
1460 ' 

1470 ' 3d Redraw Subroutene 

1480 CLS 

1490 dist=1 

1500 xx=x+dx: yy=y+dy 

1510 WHILE m(xx,yy)=0 

1520 dist=dist+l: xx=xx+dx: yy=yy+dy 
1530 WEND 

1540 IF dist>15 THEN dist=15 

1550 ' vertical lines 

1560 FOR i=1 TO dist 

1570 MOVE x( i ) ,t( i ): DRAW x(i) f b(i) 

1580 MOVE 640-x(i),b(i): DRAW 640-x(i),t(i) 

1590 NEXT 

1600 ’ horizontal at end 

1610 MOVE x(dist),t(dist): DRAW 640-x(dist),t(dist) 
1620 MOVE x(dist), b ( d i s t) : DRAW 640-x<dist),b<dist) 
1630 ' 

1640 FOR i=0 TO dist-1 
1650 ' 

1660 'find block on left side 
1670 IF dy = - 1 THEN m = m<x-1,y-i) 

1680 IF dy=1 THEN m=m(x+1,y+i) 

1690 IF dx=- 1 THEN m=m(x-i,y+1) 

1700 IF dx=1 THEN m = m(x+i,y- 1) 

1710 ' 

1720 'draw horizontal if a passage exists 
1730 IF m<)1 THEN 1770 

1740 MOVE x( i ),b(i): DRAW x(i+1) ,b(i +1) 

1750 MOVE x(i),t(i): DRAW x(i+l),t(i+l) 

1760 GOTO 1810 

1770 MOVE x(i),b(i + l): DRAW x ( i + 1) ,b ( i + 1 ) 

1780 MOVE x(i),t(i + l): DRAW x( i + 1 ) ,t( i + 1) 

1790 ' 

1800 ' find block on right side 
1810 IF dy = - 1 THEN m = m(x+1,y-i) 

1820 IF dy=1 THEN m=m(x-l,y+i) 

1830 IF dx=-1 THEN m = mlx-i,y-l) 

1840 IF dx=1 THEN m=m(x+i,y+1) 

1850 ' 

1860 ’ draw horizontal line if passage exists 

1870 IF m <)1 THEN 1910 

1880 MOVE 640-x(i),b(i): DRAW 640-x<i+1),b(i+1) 

1890 MOVE 640-x(i) f t(i): DRAW 640-x(i+1),t(i+1) 

1900 GOTO 1930 

1910 MOVE 640-x(i),b(i+l): DRAW 640-x(i+1),b(i+1) 
1920 MOVE 640-x(i),t(i+1): DRAW 640-x(i+1),t(i+1) 
1930 NEXT i 
1940 ' 

1950 ' fill floor and sky with colour 
1960 MOVE 320,0: FILL 2 

1970 IF dist)1 THEN MOVE 320,399: FILL 3 
1980 RETURN 


Listing 2 . This is an extension of Listing 1 that uses the newly constructed maze to 
position you randomly within it and then constructs a three dimensional view from that 
position. The can be changed by stepping forward or backward or by turning to the left or 
right. 


is constructed. A delay between lines 310 
and 320 may be inserted so that you can 
see the process more clearly. 

Three dimensions 


O nce a maze has been created, it can 
be used in various ways. A simple two 
dimensional representation on the screen 
is the most common. Sometimes the 
screen only displays a small section of the 
maze with most of the maze being off the 
screen. This is more difficult to program, 
but it is possible to have a much larger 
overall maze. Another way to extend the 
perception of the maze is to give a three 
dimensional scene of what it would look 
like if we were actually in the maze itself, 
looking down a corridor for instance, with 
side passages branching off. 

A maze or any passage or array, can be 
transferred into a three dimensional view 
by projecting the picture as if you were 
standing inside the passage, room or 
maze. Side passages are easy to build on 
just by making lines horizontal instead of 
diagonal. Now, look at Figure 2, which 
shows both a maze in two dimensional 
form, and a three dimensional view from 
within the same maze. 

In the view, all vertical lines stay the 
same, in precalculated perspective, until 
the other end of the passage is reached. 
The side walls follow this line of perspec¬ 
tive unless a side passage exists, in which 
case a horizontal line is drawn as the cor¬ 
ner of the passage, both above and below. 

Listing 2 is an extension of Listing 1. It 
will take the newly constructed maze and 
position you randomly within it. Then a 
view is constructed of the inside of the 
maze in three dimensions. By pressing 
four keys you may step either forward, 
backward or turn to the left or right. The 
display will then quickly redraw the new 
view The directions, North, South, East 
and West are given with the top of the 
maze taken as being North 
Probably many uses for mazes and 
particularly the three dimensional pas¬ 
sage section have already come to mind. 
Programs such as adventure games are 
virtually half done with the above system. 
The 'passages' program may even be ex¬ 
panded to duplicate the movements 
through a building design to find. 

In conclusion, note the use of random 
numbers in the maze drawing process. 
Computer graphics are relying more and 
more on random and semi-random con¬ 
structions. Random numbers are going to 
play an increasing role in computing as 
programs become more complex. In fact, 
these random functions are extending 
into every avenue of computing □ 
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We all thought Les was a dedicated CP/M hacker 
- not so, he insists; he just spent more time 
using CP/M and more time programming 
for DOS. To prove his point, he's put together a 
batch of techniques he's been using to make life 

easier. . . 


B ATCH FILES? What are they? 
Batch files are text files contain¬ 
ing, at the elementary level, se¬ 
quences of DOS commands and 
programs to be run. The most common 
use of batch files is to ensure that a se¬ 
quence of commands is executed correctly 
without relying on the user’s memory to 
get it right. 

For example, some software packages 
require you to use the back-up command 
on the subdirectories only, and not back 
up the root directory of their hard disk. In 
this case, you could perform the job 
manually by issuing a separate back-up 
command for each subdirectory: 

C:\FW>BACKUP C:\BIN A: /S 
C:\FW>BACKUP C:\FW A: /$ 

C:\FW>BACKUP C:\DB3 A: /S 
C :\FW>BACKUP C:\C86 A: /S 


This is fine as long as you have a good 
memory and can be sure you (or the user 
for whom you have set up the PC) will 
remember to back up all the subdirecto¬ 
ries. You might also wonder if you have 
the patience to type in all those com¬ 
mands — but you’ll have to sit there any¬ 
way. feeding floppy disks into the ma¬ 
chine, so typing the commands is not a 
great inconvenience. However, if the back¬ 
up commands worked without human in¬ 
tervention. waiting around just to type the 
commands would be a real pain in the 
You can solve the problem with a batch 
file; just create a text file called BACKALL- 
BAT, with the back-up commands in it: 


BACKUP C:\BIN A: /S 
BACKUP C:\FW A: /s 
BACKUP C;\DB3 A: /S 
BACKUP C:\C86 A: /S 

You can do this with your favourite editor 
or word processor (provided it can edit 
ASCII text) or with EDLIN if you have to, or 
you can simply copy the file from the key¬ 
board into the file: 

C:\FW>COPY CON BACKALL.BAT 
BACKUP C:\BIN A: /S 
BACKUP C:\FW A: /S 
BACKUP C:\DB3 A: /S 
BACKUP C:\C86 A; /S 
M Z 

<- press Ctrl and z together here 
1 File(s) Copied 
C;\FW> 

Now, typing the name of the batch file will 
invoke it, causing DOS to execute each of 
the back-up commands in turn 

C:\FW>BACKALL 

C:\FW>BACKUP C:\BIN A: /S 
(etc) 


C:\FW> 

There are a few rules about the names 
you give batch files or, more particularly, 
about the way DOS searches for program 
files (which includes batch files). 

When you give a command at the DOS 
prompt, like this: 


C: FW>DO SUMMAT 
you are presumably trying to invoke a pro¬ 
gram called DO, to operate on the file 
SUMMAT. DOS will search the current 
(sub)directory for the file DO.COM and, if 
it finds it, will load and run the program. If 
DO.COM is not found, then DOS searches 
again for DO.EXE and will load and run 
this program if possible. 

If neither of these files is found, DOS 
searches for a batch file called DO.BAT, 
and if this is found, it invokes the batch 
file processor and runs DO.BAT. 

If none of these files is found, DOS will 
then repeat this search pattern for each of 
the (sub)directories named in the current 
search path. This can be displayed and set 
using the PATH command. 

To summarise, DOS's search process is 
as follows - 

1. In the current directory, search for a 
.COM file; 

2. In the current directory, search for a 
.EXE file; 

3. In the current directory, search for a 
.BAT file; 

4. For each subdirectory in the PATH - 

a. Search for a .COM file. 

b. Search for a EXE file, 

c. Search for a BAT file; 

5. If none of the above succeeds, print an 
error message. 

The implication for batch file naming is 
that you cannot give a batch file the same 
name as an existing COM or .EXE file, un¬ 
less that other file comes later in the 
search path. For example, we could not 
have named our back-up batch file BACK- 
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UP.BAT, since then the BACKUP com¬ 
mands in the batch file would simply rein¬ 
voke the batch file repeatedly, causing the 
system to hang up. 

Under DOS 3,0 and later, it is possible 
to give batch files and programs the same 
name and distinguish between them by 
prefixing the name of each with the appro¬ 
priate path, or by using the SUBST com¬ 
mand. I'll give an example of this later. 

Elementary Batch Commands 

By simply placing a list of DOS commands 
or programs to be invoked into a batch 
file, you can automate the most common 
procedures under DOS. However, the re¬ 
sults are not terribly elegant, nor can you 
do things like prompting the user to 
change disks. However, DOS provides a 
number of commands, in most cases spe¬ 
cial to the batch processor and not avail¬ 
able from the DOS prompt, which make 
these things possible. The first three of 
these are ECHO, REM and PAUSE. 

ECHO has two purposes. First, it can be 
used to turn on and off the echoing of 
DOS commands to the console. In the ex¬ 
ample above, each separate BACKUP 
command was visible, making it clear that 
a series of programs was being run, rather 
than a single one. To make it look like a 
single program, add ECHO OFF at the 
beginning of the line. This suppresses the 
echoing of commands to the screen. Natu¬ 
rally, ECHO ON turns it on again, and 
when the batch file ends, echoing is 
turned on again for the next batch file. 

The second use of ECHO is to display 
messages for the user. For example, 

ECHO Please insert transfer disk in A: 
will display the message 

'Please insert . , A:' 
on the screen. 

There is a bug in the batch file pro¬ 
cessor: if the last line of your batch file 
does not have a carriage return at the end, 
it will be echoed anyway, regardless of the 
state of the ECHO switch. 

The REM command is similar to ECHO, 
except it is used to insert comments into 
the batch file. If ECHO is set ON, the REM 
comments will appear as the batch file 
runs, but if ECHO is OFF, the REM com¬ 
ments do not appear. 

Finally, the PAUSE command displays 
the message 

Strike a key when ready .. 
and halts execution temporarily. This is 
used to allow you to change disks, and is 
usually preceded by some kind of ECHO 
message. 


What's my Percentage? — 
Elementary Parameters 

A common use for batch files is to run 
compilers. For example, I commonly use 
the Computer Innovations Optimising C86 
C compiler, which is actually four separate 
programs which have to be run in se¬ 
quence. So, to compile the program 
WX2.C, I must give the commands: 

CjVCW>CC 2 wxa 
C: \C06>CC3 1&2 

. C:\C86>CC4 WX2' 


(the output of the compiler passes is not 
shown.) Obviously, this is an ideal candi¬ 
date for a batch file, called MAKEWX2.- 
BAT: 

CCI WX2 
WX2 

CC4 WX2 

There are a couple of problems with this 
batch file. First, what if I now want to com¬ 
pile the program SR.C? Do I now have to 
create a new batch file with different com¬ 
mands called MAKESR.BAT which would 
look like — 

ECHO OFF 

CCI Sft 

CC2 SR 

CC3 SR 

CC4 SR 

Furthermore, what if the first pass of the 
compiler discovers a syntax error in my 
program? It will produce an error mes¬ 
sage, telling me what's wrong, but then 
CC2, 3 and 4 will run, and they will either 
produce error messages, pushing the first, 
helpful, message off the screen or (much 
worse) they will run normally on the files 
left over from the previous compilation, 
pushing the error message off the screen 
and leaving me with an unchanged pro¬ 
gram! 

Lets deal with the first problem. Batch 
files can be created which do not have the 
names of files and disk drives embedded 
within them, but which instead are given 
these parameters at the time they are run. 
A parameter is something that changes 
each time the batch file is run, and which 
is given to the batch file by typing it on the 
command line which runs the batch file. 


To do this, we modify either of the MAK- 
E???.BAT files above, by replacing the file¬ 
names with a parameter. The resulting 
batch file, MAKE.BAT, looks like this: 

% , OFF 

ft" 

J0C2 %* 

CC3 %t 

CC4 . 

The '%!' symbols stand for the first word 
on the command line after the batch file 
name itself (this can be referred to as %0). 
So, to run this batch file to compile 
WX2.C, we invoke it with the command 
line 

C: C86>MAKE WX2 

while to use it to compile SR.C, we type 

C: C86>MAKE SR 

In each case, the word after 'MAKE' on the 
command line (WX2 or SR) replaces %l in 
the batch file, which then issues the cor¬ 
rect commands to compile the appropri¬ 
ate file. You can see that this is so by 
removing the ECHO OFF command. 

Advanced Batch Commands 

You can make batch files even more 
powerful by using some batch commands 
which are more usually found in program¬ 
ming languages. These allow you to test 
for various conditions or to loop around, 
repeatedly executing commands on differ¬ 
ent files. 

The first command is the GOTO com¬ 
mand. This transfers control to the com¬ 
mand after the label which is the target for 
the GOTO. A label consists of a colon (:) 
followed by a word, as the first thing on 
the line of the file. Here’s a short (nonsen¬ 
sical) example: 

ECHG OFF 

hhbnid be printed 

GOTO OVER 

i&Hp Thli never be printed " 

: OVER ' >■ :;n ■ ,■ 

re finished 

Obviously, GOTO by itself is not much 
use; it has to be used in conjunction with 
other statements. In fact, in batch files, 
the only command which is used in con¬ 
junction with GOTO is the IF command, 
which comes in several variations. 

The first IF variation allows you to test 
whether a file exists; this is useful in back¬ 
up batch files, compiler control batch files 
and others. Let's see how it can be used 
with Lattice C, for example, to take care of 
errors in compilations: 
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ECHO OFF 
ERASE %1.Q 
ERASE %l.OBJ 
LC1 %1 

IF NOT EXISTS %1.Q GOTO ERR 
LC2 %X 

IF NOT EXISTS VI .OBJ GOTO ERR 
LINK C+%1,%1,,LC.LIB 
GOTO OVER 
:ERR 

ECHO Error compiling %i.c 
:OVER 

Here there are two passes of the compiler; 
the first one reads a file with a .C filetype 
and produces a corresponding Q file, 
while the second reads the .Q file and pro¬ 
duces a .OB) file, which is then linked with 
the C compiler library to produce the de¬ 
sired .EXE file. 

If either pass of the compiler discovers 
an error, it will not produce its output file, 
and we rely on this fact to control the 
batch file and jump to a command which 
prints an error message. Notice, if every¬ 
thing works okay, we have to jump past 
the error message so it doesn't appear. 

Notice also that although the compiler 
may discover an error and not produce an 
output file, there may be an existing out¬ 
put file from a previous compile. We must 
therefore delete any such files before 
starting, otherwise our logic won't work. 

Finally, notice that the IF EXISTS test 
can be modified to work 'backwards' by 
using the 'NOT' modifier, which makes it 
perform a GOTO if the specified file does 
not exist. The NOT modifier can also be 
applied to the other IF tests. 

There is a better way of testing for errors 
after programs have run, but the programs 
have to be written specially to take advan¬ 
tage of it. This uses a special 'system vari¬ 
able' called the ERRORLEVEL, which is 
set by some programs as they return con¬ 
trol to the operating system: a value of 
zero (0) indicates normal program termi¬ 
nation with no errors, while a value of one 
(1) or higher indicates some error. In gen¬ 
eral, the higher the ERRORLEVEL value, 
the more severe the error. 

Batch files can test for errors with the IF 
ERRORLEVEL statement. For example: 

IF ERRORLEVEL I GOTO ERR 
but notice that this is read as ’if errorlevel 
greater than or equal to one goto err'. In 
other words, execution will continue nor¬ 
mally if the ERRORLEVEL is zero, but will 
branch to :ERR if it is one or greater. 
Here's an example of a smarter batch file 
for the C86 compiler: 


The implication for batch 
file naming is that you 
cannot give a batch file 
the same name as an 
existing .COM or .EXE 
file, unless that other file 
comes later in the search 
path. 


ECHO OFF 
CC1 %1 

IF ERRORLEVEL 1 GOTO ERR 
CC2 Vl 

IF ERRORLEVEL 1 GOTO ERR 
CC3 %1 

IF ERRORLEVEL I GOTO ERR 
CC4 %1 

IF ERRORLEVEL 1 GOTO ERR 
LINK %!,%!, r C86S2S 
GOTO OVER 
: ERR 

ECHO Error compiling %1 
:GVER 

This works because each pass of the 
Computer Innovations compiler sets the 
ERRORLEVEL as it exits. 

The final variation on the IF command 
allows comparison of strings. Its basic for¬ 
mat iS: 

IF 'stringr=='string2' 

There are a couple of points to notice 

echo off 

If goto explain 

CCl %1 %2 %3 %4 %5 
if errorlevel 1 goto err 
cc2 %1 

if errorlevel i goto err 
CC3 %l 

if errorlevel 1 goto err 
cc4 

if errorlevel l goto err 
link %i,,NUL,C86s2s 
goto done 
: err 


about this. First, the two strings must be 
enclosed in quotes, and secondly the 
comparison operator is — =' f that is, dou¬ 
ble equals signs and not a single equals 
like in most other languages. 

This can be used in batch files in a vari¬ 
ety of ways. For example, a batch file 
which cleans up a subdirectory by copying 
files to a floppy disk might optionally de¬ 
lete .BAK files like this: 

IF '%3’ = ='DELETE' ERASE \BAK 
Notice the parameter must be enclosed in 
quotes, since it is simply picked up off the 
command line when the batch file is in¬ 
voked, like this: 

C: C86>CLEANUP VDOC A: DELETE 
Another use for string comparison is 
testing to see whether the user has sup¬ 
plied certain command-line parameters. 
For example, Figure 1 shows the full batch 
file, CC.BAT, which 1 actually use to drive 
the Computer Innovations compiler. No¬ 
tice the use of the test - 
if ‘%l'=-" goto explain 
which tests to see if %1 is a null string, 
and if so. explains the correct usage of the 
batch file. 

The final complex batch command is 
FOR. This is similar in some respects to 
the FOR loop in BASIC, in that it allows 
repetitive looping inside batch files 
and more. Its basic format is 

FOR pvarname IN (parmlist) DO com¬ 
mand 

where pvarname is a pseudo-variable 
name and parmlist is a list of parameters, 
such as filenames. A pseudo-variable 
name is rather like a command-line pa¬ 
rameter, except that it is not just num¬ 
bered, it is also named, and takes the form 
of two per cent signs and the name: %%- 
name. The parameter list can include file¬ 
names, keywords, commands, and even 
command-line parameters like % 1, %2 and 
so on. 

For example, suppose we wanted to 
separately compile and then link together 
three C language source files. We could do 
it by removing the link command from the 
batch files shown above, running the 
batch file three times and then giving the 
link command manually. 

A better way to do it. at the expense of 


echo error compiling %i 
goto done 
:explaln 
eho usage;™ 

echo cc file (flags! 

echo example:- cc hello.c -hc:\c86\,c:\ ~i x 
echo this batch file assumes that you are using 

echo the c86$2s library (small model, dos2, software f.p.) 

echo and LINK.EXE to link 

:done 

Figure I 
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ECHO OFF 

FOR %%VAR IN (PROG1 PROG2 PROG3) DO CC1 %%VAR 

FOR %%VAR IN (PROG 1 PROG2 PROG3) DO CC2 %%VAR 

FOR %%VAR IN (PROGl PROG2 PROG3) DO CC3 %%VAR 

FOR %%VAR IN (PROGl PROG2 PROG3) DO CC4 %%VAR 

DINK PROG1+PROG2+PROG3,MYPRGG,,C86S2S 

Figure 2 


ECHO OFF 

FOR %%VAR IN (%1 %2 %3) DO CC1 %%VAR %5 %6 %7 

FOR %%VAR IN (%1 %2 %3) DO CC2 %%VAR 

FOR %%VAR IN (%1 %2 U) DO CC3 %%VAR 

FOR %%VAR IN (%1 %2 %3) DO CC4 %%VAR 

LINK %l+%2+%3,% 4 t ,C86S2S 


error checking, would be to construct a 
batch file using the FOR command as 
shown in Figure 2. This will compile the 
three files PROG1.C, PROG2.C and 
PROG3.C, and then link them with the 
compiler’s library to produce the program 
MYPROG.EXE. Of course, a more versatile 
way to do this would be to create the 
batch file shown in Figure 3, which I'll call 
MAKE3.BAT, which allows you to invoke 
the file with a command line like 

C: C86>MAKE3 I MAIN SFUNCS 
IFUNCS INDEX -2 -F 
This will compile the first three files 
(IMA1N.C, SFUNCS.C and IFUNCS.C) to 
produce the program 1NDEX.EXE. The -2 
and -F parameters are command line op¬ 
tions for the compiler, causing it to pro¬ 
duce code optimised for the 80286 pro¬ 
cessor and use 'frugal’ optimisation, re¬ 
spectively. 

The price paid for this flexibility is error 
checking, but we shall investigate ways to 
improve this later. 

The SHIFT command is the last com¬ 
mand supported by the DOS batch pro- 


Figure 3 

cessor. With standard batch file parame¬ 
ters you can only have 9 parameters, plus 
the batch filename; that is, %0 to %9. %10 
is viewed as %I immediately followed by a 
0. The SHIFT command has the effect of 
discarding the current %0 (you probably 
didn't need it anyway) and putting %1 in 
its place. Then %2 is shifted into %l, %3 


into %2, and so on until finally what would 
have been the inaccessible %10 is shifted 
into %9. 

Now, batch files with 10 or more pa¬ 
rameters are a bit mind-boggling to con¬ 
template, but SHIFT could be used in con¬ 
junction with FOR loops. However, I've 
never needed it so far. 


echo off 
.start 
cl s 

echo Main Menu 

echo l Run Wordstar 

echo 2 - Compile choose.c < 

choose 

If errorlevel 2 goto me — 

if errorlevel 1 goto dows j 

if errorlevel 0 goto done 

:mc 

command /c cc choose ^ 

goto start 

;dows r 

command /c ws 
goto start 
: done 


Figure 4. 

/* ASK.C set ERRORLEVEL interactively */ 
/* Programmed by LB */ 

^include "stdlo.h" 


lnt answer; 


/* CHOOSE.C - set ERRORLEVEL interactively */ 
/* Programmed by LB */ 

#Include "stdlo.h" 


int choice; 

static char tempt] = (" *); 

If (( stdin - fopen(”CON","rb")) <== NULL) < 

abort(”as)c: unable to open console : 

) 

fputs( "Please enter your choice: rt ,stdout); 
while(!lsdigit(tempt 0] * getchart))); 
choice « atoi(temp); 
putchart'\n'I; 

exitt choice )t 


stream"), 


if((stdin - fopen("CON",’rb")) NULL) ( 

abort("ask: Unable to open console stream"); 


Listing 2 


fputst"Press Y or N: ",stdout); 
whilet((answer * touppertgetchar())) 

putchart'\n'); 

if (answer =>=> *Y') exit(o); 

else if (answer ■» 'N') exit(l); 


* Y*) &£ (answer !- 'N')); 


Listing 1 
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REM Loop processor for various files 
ECHO OFF 

FOR %%X IN (CHI.DOC CH2.DOC CH3.DOC CH4.DOC CHS.DOC) DO CD %%X 
REM CD.BAT - Copy file tnen delete it 
COPY %1 \ARCHIVE\%1 
DEL %1 

Figure 5. 


Extending Batch Processing 

The IF and FOR commands give consider¬ 
able flexibility in controlling the execution 
of individual commands. To control the 
execution of sequences of multiple com¬ 
mands, we have to use GOTO, which the 
experienced programmers amongst us 
recognise as A Bad Thing. 

The lynchpin of good programming 
practice is the ability (and the desire) to 
have subroutines or procedures. This 
applies to all programming languages, 
from BASIC to C and PL/I, including DOS 
batch files. 

Now, surely in batch files all you have to 
do to get subroutines is have one batch 
file call another? Sounds fine in theory. 
We could write a pair of batch files to, for 
example, copy files to a new subdirectory 
and then delete the old version as shown 
in Figure 5. 

If you try this, you'll find it doesn't work. 
Naming one batch file inside another 
works like a GOTO, control transfers to the 
named batch file but then never returns, 
so the batch file terminates at the end of 
the 'subroutine' batch file. 

How, then, can you call one batch file 
from within another? You can, but the 
technique is well hidden in the DOS 
manuals. The secret is that each batch file 
requires its own copy of the batch file pro¬ 
cessor to run correctly. When it termi¬ 
nates, its copy of the batch file processor 
disappears from memory and control re¬ 
turns to the batch processor for the calling 
batch file, which then resumes where it 
left off. 

The batch file processor is part of the 
resident portion of the COMMAND.COM 
program. You can invoke a new copy of 
COMMAND.COM and pass it a command 
(like a batch file name) by using the com¬ 
mand 

COMMAND /C command line 

A version of the batch files given above 
which would work is shown in Figure 5. 
Notice there is an ECHO OFF statement in 
both batch files; this is because CD.BAT 
starts running under a completely fresh 
copy of COMMAND COM which has ECHO 
set ON 


In practice, copies of COMMAND.COM 
inherit a lot of information about the cur¬ 
rent DOS set-up — it's just that the cur¬ 
rent state of ECHO is not part of that. In 
particular, COMMAND.COM manages an 
area of memory called the environment, in 
which various strings are stored which 
control the way DOS operates. You can 
see these strings by typing SET and press¬ 
ing return; this will display the contents of 
the environment: 


C:\C86>5ET 

COMSPEC-C:\COMMAND.COM 
PATH-C:\;C:\BIN;C:\C86 
PROMPT-$p$g 
C86TEMP**f: 


As you can see, all environment strings 
take the form varname=string, Some are 
obvious, like PROMPT=, which saves the 
current prompt string which sets the DOS 
prompt, and PATH=, which is set by the 
PATH command in your AUTOEXEC.BAT 
file (what do you mean, you don't have a 
PATH command in your AUTOEXEC.BAT 
file?). Others are specific to particular 
packages, like the C86TEMP variable, 
which specifies where the C86 compiler 
will put its temporary files (drive F: is a 
memory disk, for speed). Finally, the COM- 
SPEC string, which is present on all sys¬ 
tems, specifies from where COMMAND - 
COM will reload its non-resident portion if 
it should be overwritten. 

The important point is that copies of 
COMMAND.COM receive a copy of their 
parent's environment, and therefore have 
access to all these variables. But because 
it is a copy of the environment, changing 
any variables wilt have no effect on the 
parent's environment. In other words, vari¬ 
ables are local, not global. 

However, there is one way in which a 
copy of COMMAND.COM can affect its 
parent, and that is through the ERROR- 
LEVEL variable. When a copy of COMMA- 
ND.COM terminates, it returns its current 


ERRORLEVEL value to its parent, so that 
if this batch file encountered an error the 
calling batch file knows about it, too. 

It is possible to make batch files inter¬ 
active, in other words, to make them ask 
questions. The easiest way to do this is 
with the ERRORLEVEL, by writing a short 
program which asks for a yes or no re¬ 
sponse and sets the ERRORLEVEL ac¬ 
cordingly. Such a program, ASK.COM, is in 
the public domain, in the PC/Blue user 
group public domain library and available 
from user groups around the country. 

ASK.COM asks the user for a Y/N re¬ 
sponse and sets the ERRORLEVEL to 0 for 
a Y response and I for N. This can then be 
tested by an IF command. For example, I 
use this technique in my AUTOEXEC.BAT 
file: 


echo off 

path c:\;c:\bin;c:\c8G 
xtime 

prompt $p$g 

set c86temp=£: 

subst g: c:\bin 

echo Want Sidekick loaded? 

ask 

if errorlevel 1 goto nosk 
sk 

;nosk 


This sets things up on my system, and 
then asks if I want Sidekick loaded into 
memory. If I answer with a Y, then SK.COM 
is run, otherwise execution jumps past 
this point This technique can be extended 
to allow menus to be constructed. 

Listing 1 shows a C version of the ASK 
program, written for Computer Innova¬ 
tions Optimising C86. This version com¬ 
piles to rather a large size at 10 Kbytes 
not really a problem, but the public do¬ 
main version is rather neater at 256 bytes. 
The problem is that I'm too lazy to write 
any assembly language if 1 can avoid it: 
•the C version took 10 minutes to write, 
while an assembler version would have 
taken me hours. 

Likewise, Listing 2 shows a C program 
called CHOOSE.C. This allows you to 
enter a single digit as a menu choice, and 
then sets the ERRORLEVEL to that value. 
This program could easily be extended to 
allow selections higher than 9 Figure 4 
shows a menu batch file which uses the 
CHOOSE.EXE program. □ 
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ROGRAMMING PART 


In Part 1, Les showed how to make Batch Files 
interactive. But, a more powerful trick is to use 
environmental variables. 



Y OU LEFT ME in Part I en¬ 
grossed in making batch files in¬ 
teractive, using the public domain 
program ASK.COM. More powerful 
is the ability to use environment variables 
within batch files. There are several ways 
this can be done. 

The simplest way to set an environment 
variable is to set it using the SET com¬ 
mand. For example: 

SET USER=Fred 

In typing a SET command, do not type any 
spaces around the equals sign they 


seem to upset the command. The com¬ 
mand is not case sensitive: the variable 
name is always transferred into upper 
case when it is stored, while the value is 
stored exactly as you type it. 

You can type a SET command before 
running the batch file, or alternatively you 
can incorporate the SET command into 
the batch file. However, there is a restric¬ 
tion on SETting environment variables 
from within batch files: the operation of 
the batch file processor restricts the 
growth of the environment, so that only a 
few strings can be stored there. By con¬ 


trast, if you keep setting strings into the 
environment manually, it can expand up 
to 32 Kbytes in size. 

There is a public domain utility (I forget 
what it's called, unfortunately) which does 
for environment variables what ASK does 
for the ERRORLEVEL. In other words, it is 
like a BASIC INPUT statement for batch 
files. By the time this appears in print, you 
can expect to see either that program or 
one of mine that does the same thing on 
the Your Computer Bulletin Board. I would 
have had one written in C except that my 
C compiler can only read environment 
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/* Make empty file for history and similar utilities */ 

tinclude "stdio 

maln(argc,argv) 
tnt argc; 
char **argv; 

{ 

FILE *f; 
if(argc l* 2) ( 

printf("Usage: make filename"), 
exit(1>; 

) 

if((f « fopen(argvll),"w")) « o) ( 

print f ("make: unable r,o make file % a M , a rgv l i ] ) , 
exit(l); 

| 

fclose(f}; 

) 


variables, not write them. 

Having got a value stored in an environ¬ 
ment variable, how do you access it from 
within a batch file? The answer (not de¬ 
scribed anywhere in the DOS documenta¬ 
tion, incidentally) is yet another variant on 
the use of percentage signs. To extract the 
value of variable 'enwar' in a batch file, 
simply refer to it as '%enwar%.' For exam¬ 
ple, in a user logon batch file: 

IF '%HELP%'=='ON' TYPE LOGON.HLP 
This will type a help file should the user 
require it. You can similarly store pass¬ 
words and other information in the envi¬ 
ronment. 

Wildcard Expansion 

Several DOS commands, and other pro¬ 
grams, do not accept wildcards in the file¬ 
names passed to them. For example, the 
DOS FIND command, a very useful little 
Chinese copy of the UNIX grep command, 
accepts a list of filenames, but no wild¬ 
cards, which is rather inconvenient. Its 
syntax is: 

FIND |flags| "string’' filelist 
This means that to search all LET files for 
a particular name, you would have to give 
the full list of all filenames — in other 
words, run a DIR command to find all the 
.LET files first. Isn't this the kind of repeti¬ 
tive task the computer is supposed to do 
for you? 

A solution comes to us courtesy of the 
DOS FOR batch command. Wildcards are 
permissible in the parameter list of the 
FOR command, and are automatically ex¬ 
panded. So. we can easily create a batch 
file to search all LET (or any other type) 
files for a string: 

ECHO OFF 

FOR %%V IN (%2) DO FIND %I %%V 
If we call this batch file GREP.BAT (cheeky, 
but meaningful!) we can invoke it with a 
command like 

C: C86>GREP "printf" VC 
which will search all the C source files in 
this subdirectory to find those containing 
calls to the printf function Likewise: 

C: C86>GREP "Smith" VLET 
will find all letters which mention a per¬ 
son called Smith 

Redirection and Batch Fites 

If you want to save all the output from the 
GREP batch file into a text file for later pe¬ 
rusal with a word processor or editor, you 
cannot simply type - 

C: C86>GREP "Smith" VLET >GREP OUT 
This will just create an empty GREP.OUT 
file, and the output of the FIND com- 


Listing 1 MAKE.C 

mands will go to the screen as usual. In¬ 
stead, the redirection must be applied in¬ 
side the batch file. However, you cannot 
simply use output redirection, because 
each time the FIND command is run, its 
output will overwrite the file created by 
the previous run — so only the output 
from the last FIND will be saved. 

To get around this, we must use ap¬ 
pend redirection, which sends its output 
to the end of the target file, after any exist¬ 
ing material. Now the problem is that if we 
write append redirection into the batch 
file, it will simply append its output onto 
any previous run of the batch file, instead 
of creating a fresh, new file. No problem: 1 
had already written a program called 
MAKE.C which creates an empty file, in 
connection with a command logging sys¬ 
tem 1 had developed — see Listing L 

Listing 2 shows a rather smarter batch 
file, which will send its output to the 
screen or to an optional output file. It is 
left as an exercise to the reader (shades of 
school textbooks!) to add optional ap¬ 
pend or overwrite of the file %3. 

echo off 

if * %3 1 mm *' GOTO nosave 

make %3 > 

for %%v lit (%2> do find %i i%v >> *3 

goto end 

:nosave 

for %%v in do find %i %%v 
:end 

Listing 2. 

Redirection is useful for other purposes, 
too. For example, in a batch file, you may 
want to change the PATH searched for 
program files, and then set it back the way 
it was later. How can you store the current 


PATH setting? 

The answer is this technique' 

PATH >OLDPATH.BAT 
(batch processing) 
command /c oldpath 

The batch file OLDPATH.BAT will contain 
a single line of the format 

PATH = C: ;C: B1N;C: C86 
or whatever applies to your system. When 
it is executed it sets the path back the way 
it was. 

Dynamic System Configuration 

A common problem with departmental 
PCs is the sharing of PCs between users 
who have conflicting requirements. For ex¬ 
ample, one user might use the machine 
with dBase III, and might want a 256 Kbyte 
memory disk drive, while the other user 
wants as much main memory as possible 
in order to run large Lotus 1-2-3 spread¬ 
sheets. 

Since (under DOS 3.1) the memory drive 
is set up by the CONFIG.SYS file, changing 
the system around means editing that file, 
saving it and then rebooting. This process 
is tedious and prone to error but it can be 
automated thus- 

First, create the two different CONFIG¬ 
.SYS files, in your BIN subdirectory, under 
two different names. For example, LOTUS- 
SYS: 

COUNTRY=06I 
and DBASE.SYS: 

DEVICE=VDISK.SYS 256 

BUFFERS=30 

FILES=20 

COUNTRY=061 
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Now, create two batch files, as follows. 
First, DBASEMEM.BAT; 

ECHO OFF 

COPY BIN DBASE.SYS CONFIG.SYS 
REBOOT 

and then LOTUSMEM.BAT: 

ECHO OFF 

COPY BIN LOTUS.SYS CONFIG.SYS 
REBOOT 

giving the command 
C: BlN>LOTUSMEM 

will copy the appropriate contents into 
CONFIG SYS and then reboot the system, 
while 

C: B1N>DBASEMEM 

will set it up for dBase. The only thing you 
need is the REBOOT command, which is 
given in Listing 3. (A machine-readable 
version will be found on the YC Bulletin 
Board). 

The same technique can be applied to 
selecting one of multiple copies of AUTO¬ 
EXEC.BAT. The only restriction is that RE- 
BOOT.EXE does not work if there is co¬ 
ma i n O 
{ 

int sysint(); 
sysint(Oxi9,0,0), 

) 

Listing 3. REBOOT.C 

resident software — like Sidekick — in 
memory. 

Memory Drives 

DOS 3.1 comes with a device driver — 
VDISK.SYS — which implements a 
memory virtual disk drive; in other words, 
it uses part of memory as a pseudo disk 
drive. Most multi-function and memory 
cards come with a similar piece of soft¬ 
ware. HI refer to these memory drives as 
vdisks. 

To the user, the vdisk appears to be a 
small hard disk. It is very fast — typically 
three times faster than a hard disk — and 
quite reliable (it has no moving parts). 
However, it has one major drawback — 
unlike a real disk, it is volatile; the con¬ 
tents are lost when the power goes off. 

While the probability of that may be 
low. there is still the possibility of some¬ 
one tripping over the power cord — that's 
not too bad, since you can always hit 
them. But when you finish work for the day 
and switch off, only to realise that you 
haven't copied the vdisk contents back to 
a real disk, the frustration reaches a high 
point. 
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To the user, the 
vdisk appears to be 
a small hard disk - it is 
very fast and quite 
reliable. 


In order to avoid disaster, therefore, 
some guidelines should be followed for 
the use of vdisks: 

1. Never, never put anything valuable into 
a vdisk. Live databases, for example, 
should not be placed in vdisk; however, 
database index files, which can be auto¬ 
matically recreated, are fair game. 

2. Automate the operation of the vdisk by 
the use of a batch file. 

3. Put the most frequently accessed files 
in the vdisk. 

For example, in running dBase applica¬ 
tions (a typical application where a vdisk 
makes a big difference) files should be 
handled as shown in Table I. And the sys¬ 
tem should be automated with a batch file 
as shown in Listing 2 (assume hard disk C: 
and vdisk D:). 


.DBF (database files) 

.WDX (index flies) 

,prg (command files) 

.FMT (screen format files) 
.FRM (report format files) 
DBASE.COM 


DBASEOVR.COM 

Table I. 


ECHO OFF 

ECHO Copying files, please 
COPY C: *.PRG D; 

COPY C: *,FRM D: 

COPY C; DBASEOVR,COM D: 

COPY C; *.NDX D: 

D; 

C: DBASE application name> 
COPY *.NDX C: N 

Listing 4. C : 


What Does It All Mean? 

In this article, I hope I’ve shown you some 
of the power of batch files, some of the in¬ 
tricate things you can do with them. I 
hope I’ve also corrected the poor docu¬ 
mentation from both Microsoft and IBM 
on this subject, and provided you with 
some useful tips and techniques. In addi¬ 
tion, I've suggested ways in which the 
batch processing facility can be made 
more useful with the addition of some 
simple C or assembler utilities. 

Where do you go from here? Undoubt¬ 
edly, you'll have some problems of your 
own which are particularly amenable to 
batch file solutions. If you want to practice 
your batch file programming skills, here 
are some suggested applications; 

■ Menus, 

■ System configuration in response to 
user login, 

■ Electronic Mail, 

■ Security, 

■ Subdirectory clean-up, 

■ Location of overlay files, and 

■ Moving files between subdirectories. 
Good luck with your batch file program¬ 
ming. If you come up with an interesting 
technique, share it with other YC readers 
by sending it to us at the magazine. I'll 
persuade Natalie to pay for contributions 
used, or even offer a prize for the best! □ 


left on hard di sk ( t abief 

possibly placed on vdisk: 
definitely on vdisk 
definitely on vdisk 
left on hard disk (slow anyway) 
left on hard disk (accessed once 
only) 

definitely on vdisk (accessed very 
frequently) 


wait 


<- if room 

<- copy index flies back 
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Manipulating Batch Files 

Here's a DOS Dirty Trick from Jeff Richards - a batch 
file created by a program to re-start itself. 


H ERE'S a DIRTY DOS trick that 
you might find handy: when 
DOS processes a batch file, it 
only reads as much of the file 
as it needs to execute the next command. 
It then remembers its position in the file, 
and returns there when the command or 
program has been executed. This means 
that it is possible for a progam to modify 
the batch file which invoked it, and to con¬ 
trol the sequence of processing that will 
occur when it terminates. 

Of course, for many procedures with a 
sequential processing path there is no 
need to fiddle with the batch file. Because 
one batch file can chain onto the next, a 
program that needs to control the chain of 
events simply creates its own batch file, 
and arranges for the batch file that in¬ 
vokes it to chain onto the file it creates. 
This is the way that installation programs 
work - SETUP.BAT might run SETUP.EXE 
then continue on to INSTALL.BAT - but 
INSTALL.BAT was actually created by 
SETUP.EXE based on the answers given to 
the installation questions. In itself, this 
hardly qualifies as a dirty DOS trick. 

Circular batch file 

owever, a batch file created by a pro¬ 
gram to re-start itself is a rather dirty 


trick. Such a circular batch file might be 
useful when one program needs to run an¬ 
other program and retrieve an answer 
from it. Let's call the main program 
ASKER, the program that provides the re¬ 
sponse ANSWER and the batch file CON¬ 
TROL. ASKER accepts a command-line ar¬ 
gument of NUL which indicates that this 
is the first time it has been started, or a 
three-letter command returned from AN¬ 
SWER. 

Initially, CONTROL would contain the 
single line 'ASKER NUL'. When run, this 
would start ASKER. If the program needed 
an answer it would rewrite CONTROL to 
contain two additional lines - ANSWER 
and CONTROL and then terminate. DOS 
would execute ANSWER, which would 
work out the result of the question. It 
would then rewrite CONTROL from the 
start, replacing NUL with the reply (say, 
'ONE'), and terminate. 

DOS would then execute CONTROL, 
which is a batch file that starts ASKER 
with the argument ONE. ASKER would de¬ 
tect that this was not an initial startup, 
and would retrieve its answer. It should 
then re-write CONTROL to delete the last 
two lines, so that when it terminates, DOS 
detects the end of the batch file, and re¬ 
turns to the command prompt. (Actually, 


replacing the last two lines with an innoc¬ 
uous command such as CLS is a better 
habit.) 

Each program that re-writes the batch 
file must be sure that the point in the file 
where processing resumes is unchanged. 
The contents of the file, both before and 
after this point, can be altered, but the 
byte position of the start of the next com¬ 
mand line must remain the same. 

This procedure is not restricted to cases 
where ANSWER actually returns a result - 
it could be that ASKER simply wanted to 
regain control after the job (such as a for¬ 
matting a disk) was done. In this case it in¬ 
serts the 'reply' into the first line of the 
file itself, so it can detect that control is 
being returned from a task that it initiated, 
rather than from a cold start. 

Do-nothing batch file 

f you have wondered why some software 

requires a tiny, do-nothing batch file to 
start it, the answer just might be that it 
will re-write that batch file if you ask it to 
execute a system utility, and then set it 
back to the standard form when it regains 
control. For circumstances where you 
don't want to, or can't, use DOS' CHAIN 
and SHELL facilities, rewriting batch files 
can be an effective dirty trick. □ 
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IN 

ABOUT HYPERCARD, HYPERTEXT 
AND HYPERMEDIA 


T HE COMPUTER world today prob¬ 
ably has as many gurus as pop 
music and pop philosophy com¬ 
bined. These legendary computer¬ 
ised figures stalk the stages of high-tech 
conferences - destined evermore to be 
'keynote speakers' sprouting futuristic 
philosophies and fantastic dreams. 

One such figure recently re-emerged 
from his digital dungeons is Ted Nelson, 
the man who invented the terms 'hyper¬ 
text' and 'hypermedia', and who authored 
Literary Machines trying to explain it all. 

'We speak sequentially because we 
have only one vocal track and we write se¬ 
quentially because books have numbered 
pages, but we don't think sequentially,' 
says Nelson. 

it is the rigidity of database structures 
that he is attacking; the way in which we 
create records with dependent fields, and 
link them hierarchically into files. 

Nelson envisages future databases as 
free floating packages of information (text, 
graphics, audio or video information) all 
interconnected by multi-dimensional 
links. His theory also involves the ability 
for each user to 'customise' their own 
database in effect create their own links 
— so authoring tools are an essential part 
of hypertext. 

Hypertext (or nowadays more properly 
'hypermedia') concepts in the design of 
software would enable us to freely explore 
information in 'multiple parallel' paths, 
instead of being confined to a fixed path 
or structure, Nelson predicts. His Project 
Xanadu in the States has the rather fanci¬ 
ful aim of linking and cross-linking all of 
the world's information. You heard it right 
-a//! 

I met him three months ago in Seattle 
at the CD-ROM conference and we talked 
about hypertext for about an hour. But 


As an introduction to 
HyperCard, Stewart Fist 
waxes lyrical on hypertext - 
a flexible, programmable 
information retrieval 
system quite unlike 
anything that's been seen 
before! 


only on our second meeting, after a long 
hands-on session with OWL international 
Incorporated's CD-Guide hypertext sys¬ 
tem for CD-ROM based applications, was I 
able to get to grips with the concept. 

I must admit that at first I thought Nel¬ 
son was tending to confuse computer pro¬ 
gramming with some exotic Eastern reli¬ 
gion or the Californian cult of EST. it is the 
philosophical abstractions that interest 
Nelson, not the nuts-and-bolts means of 
actually making computers work. 

He is not the world's best explainer, 
and he deals in an area with difficult con¬ 
cepts and very few useful analogies. The 
other problem in understanding him is 
that hypertext is a 'normative direction' 
rather than a product or a design; it is a 
statement of aims about how things ought 
to be. The fact that these ideas have been 
around for over 20 years (since 1965 at 
least) is an indication of how difficult even 
the basic concepts are to achieve. 

To get to grips with hypertext, you'll 
have to play with the software yourself - 
Melbourne-based Pica has managed to 


quietly import OWL's CD-Guide (for the 
Mac and IBM), and Apple is here with Hy¬ 
perCard. I promise you; these new prod¬ 
ucts are the next wave of species software 
- like desktop publishing (DTP), expert 
systems and so on. 

HyperCard is for the Macintosh, and 
Apple is swinging a lot of weight behind it. 
in fact Apple is bundling HyperCard soft¬ 
ware with every Mac sold, and if you've al¬ 
ready spent your money on an old Mac, 
you can get a copy from an Apple dealer 
for under $100. 

These two programs are only the first of 
a long line of future hypertext software - 
quite possibly in a few years these prod¬ 
ucts will appear as primitive as VisiCalc 
does now. But they are very important 
products in the evolution of computers: 
like the cuckoo that heralds spring, I be¬ 
lieve that HyperCard is the harbinger of 
'informatics' with computers as distinct 
from data processing. 

I've been waxing pretty lyrically of late 
in these and other magazine pages about 
the imminent impact of CD-ROM and ex¬ 
pert systems: now we have the third cor¬ 
ner of the informatics triangle, a flexible, 
manipulatable, programmable informa¬ 
tion retrieval (pathway?) system quite un¬ 
like anything we've seen before. From 
today, the world is different. 

CD-Guide 

et me give you some examples. First of 
all, OWL international's CD-Guide for 
the Macintosh and for the IBM PC (under 
Windows); this is a shell, much like the ex¬ 
pert system shells, into which people put 
information on a subject. This information 
constitutes the 'database' - but it can be 
any type of information, it is not just lim¬ 
ited to text and/or graphics. 

CD-Guide allows readers to interac- 
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Figure 1. An illustration from a HyperCard demonstration stack showing the ' live ' areas 
within an illustration . Clicking on the hat, in this case takes you through to where 
you get other types of hats. 


tively explore information and allows 
them to 'tailor documents to their individ¬ 
ual needs' by simply clicking on 'buttons' 
embedded in the documents. CD-Guide is 
a very early form of hypertext-type soft¬ 
ware but it does incorporate the powerful 
free form linking of text which is one of the 
basic concepts of the idea. 

There are no commands; the entire user 
interface consists of either a one-button 
mouse (or a touch screen) so you can 
learn to use CD-Guide in a minute. You 
point and click on 'live' words, or mini¬ 
icons, or buttons, or objects within the 
screen to obtain the information you 
want. 

CD-Guide grew out of a previous hyper¬ 
text software product called Guide, which 
could be crudely and inadequately de¬ 
scribed as a cross between a word pro¬ 
cessor, a database and an idea processor. 
Its primary purpose is to present informa¬ 
tion interactively on the computer screen, 
but it can also be used to prepare printed 
documents. 

The new software species of 'ideas 
processors' gets closer to hypertext than 
any other, I think, If you own ThinkTank or 
More, you'll understand what I mean. 
Each layer of the outline can have another 
layer behind, and these layers are directly 
related (tightly linked) to the layer above. 
If I click my mouse on a subject heading, 
that heading will 'open up' and reveal a 
series of sub-headings beneath - or at the 
final stages it will reveal some explanatory 
text. 


Idea processors are essentially tree- 
structured. From the main heading, the 
tree branches into (makes connections 
with) sub-headings, sub-sub-headings 
and so on until it reaches the explanatory 
text at the leaf end. 

True hypertext is not like this. It is a 
web-structure with all pieces of informa¬ 
tion having the same standing in the hier¬ 
archy, but with the ability to establish 
links of any kind, and to any degree. 

For instance, suppose you were reading 
this text on a CD-Guide hypertext system 
- it would appear much as it does now. 
But if you were to pass your cursor over 
the text you would discover that certain 
parts of the text were 'live' which simply 
means that the cursor would change to in¬ 
dicate that other data was linked to this 
word. 

In the above paragraph the words 'CD- 
Guide', 'hypertext' and 'cursor' would 
probably be alive. If you were to click on 
these words, you would be instantly pro¬ 
vided with other relevant information. In 
the case of 'cursor' it might only be a brief 
dictionary definition which would appear 
in the small window on the screen, but 
there could easily be another depth of ex¬ 
planation below this again which would 
take you into technical programming in¬ 
formation about how cursors are con¬ 
trolled. 

In this case the window would possibly 
have a selection menu which would let 
you choose whether you wanted to go into 
the programming data, or perhaps into a 


graphic screen illustrating different types 
of cursor styles, or whatever. The range of 
possibilities depends on the available in¬ 
formation, and the links that you or the 
content provider have established - not 
on the limitations of the software. 

If you clicked on 'CD-Guide' it might 
initially provide you only with the basic in¬ 
formation about the programmers, OWL 
International Incorporated, with its ad¬ 
dress and telephone number. But you 
would probably also have an opportunity 
to pass through this window into one or 
more magazine reviews of the software; or 
lists of dealers; or a discussion on hyper¬ 
text as a philosophy. 

You might go down the yellow brick 
road of any of these pathways, clicking on 
live words as you go. and never get back to 
the original article - or you might go part 
of the way, then click on a 'return' button, 
and zap back to the paragraph you left. 

The analogy here is probably very close 
to adventure games - although these tend 
to be rigid in structure with randomised 
sections. In fact, my first reaction on see¬ 
ing Apple's HyperCard demonstration was 
just that; it provides the shell for a marvel¬ 
lous series of discovery games so there 
is a lot of opportunity here for educational 
software writers, 

HyperCard 

A pple's HyperCard was rumoured for 
about five years-you may have heard 
it whispered about under the name Wild 
Card. Bill Atkinson the creator of MacPaint 
did the coding, and he is said to have 
spent four years just getting the user in¬ 
terface right. 

HyperCard uses 'stacks' of 'cards' to 
store and sort information in a manner 
very similar to Xerox's Note Card pro¬ 
gram, It is obvious where the metaphor 
has come from, and the object-oriented 
control language also is derived from 
Small Talk. 

Everyone in the reviewing business is 
having trouble describing HyperCard. See 
if these make sense-, 'It is a multi-media 
database toolbox which can contain text, 
sound and graphics,' Or this, 'It can be 
best described as a non-linear way of trac¬ 
ing various aspects of a concept or fea¬ 
ture, with multiple options at each step'. 

Or Apple's press release, which says 
'HyperCard is a software-based toolkit 
that gives users the power to use, custo¬ 
mise and create new information using 
multiple information types such as text, 
graphics, video, music, voice and anima¬ 
tion'. 

I think you get more of an idea out of 
my just saying it is 'a serious adventure 
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8/4/87 10:58 AM Background Script 

on idle 

if field "Time" is not the time 
then put the time into field "Time" 
repeat while the hour « it 
exit idle 
end repeat 
world 

put the hour into it 
end idle 

on openCard 

put the hour into it 
end openCard 

on ArrowKey left 

go next card in this background 
end ArrowKey left 

—on ArrowKey right 

go previous card in this background 
--end ArrowKey right 

Figure 2. An example of the HyperTalk structured object-oriented language derived front 
SmallTalk. 


game' Remember that HyperCard, like 
CD-Guide, is a shell. It is an empty stack of 
cards into which you must put text, or 
graphics or even music. 

If we are talking about CD-ROM as 
being the source of the information for 
that shell, then there will need to be a 
substantial input of text, graphics and in¬ 
formation to fill the 600-odd megabytes of 
disk space. So HyperCard will probably es¬ 
tablish a new information industry, which 
will be part-way between librarianship, 
computer programming, and expert-sys¬ 
tem type knowledge engineering. 

Don't get the idea though, that Hyper¬ 
Card is dependent upon CD-ROM, or on 
encyclopaedia-type information. You can 
use the system to store and interconnect 
your own information - although! person¬ 
ally doubt whether people will go to the 
bother for mailing lists and suchlike after 
the novelty wears off. 

I think HyperCard will find a place 
somewhat analogous to DTP within large 
companies (and as small service busi¬ 
nesses), where a couple of people work to¬ 
gether designing and constructing custo¬ 
mised HyperCard applications. One thing 
is sure: HyperCard will eventually boost 
the sale of video digitisers and optical 
character readers (OCRs). These are the 
easy ways of handling large amounts of 
text and graphic information already in ex¬ 
istence. 

Let's get down to the nuts-and-bolts of 
HyperCard. 

It consists of three disks plus a backup. 
There's a main HyperCard disk with sev¬ 
eral example 'stacks', a Help disk and a 
Stack Examples and Ideas disk. The main 
disk comes with a few desktop 'stacks' for 
an address file, a datebook, a 'to do' list, 
calendars and a filing system, while the 
Ideas stack gives you hundreds of stack 
templates, card designs and clip-art draw¬ 
ings. There is also a 225-page user tutorial 
and reference manual. 

As a minimum, you'll need a I Mbyte 
Mac Plus with two 800 kilobyte floppies, 
although a hard-disk would be even bet¬ 
ter. The program itself takes up 368 Kbyte 
on disk, and there's not much point in 
using it unless you've got a reasonably 
large amount of data. 

HyperCard can be used as a front-end 
to drive a CD-ROM disk unit or any other 
form of mass storage, and it will also have 
primitive communications for instance 
the music system can be used for touch- 
tone dialing. Later versions will undoubt¬ 
edly expand this capability. 

I've seen a demonstration of a informa¬ 
tion package called Business Class which 
starts with a map of the world, then lets 


you move in progressively on any country, 
or city. Finally at the city level it gives you 
information such as hotels, exchange 
rates, cultural activities, transport, climate 
and so on. 

There are a couple of calculator func¬ 
tions builtin to HyperCard, so you can 
change Fahrenheit to Centigrade. Obvi¬ 
ously at a later time you will be able to go 
on-line to your bank and automatically 
update and do currency conversions. 

As I see it, well-designed hypertext sys¬ 
tems will become the central point of our 
new high-information world. Up until now 
we have been concentrating on data pro¬ 
cessing, and word processing - now we 
are into the age of Informatics with real in¬ 
formation processing. 

Hypertext systems will be able to access 
data on CD-ROM disks and update this 
from online links. They will also possibly 
act as the bridge between program mod¬ 
ules that provide word processing, ideas 
processing, spreadsheet, and communica¬ 
tion functions. 

I doubt whether we will see elaborate 
hypertext systems for Apple Ms and the 
IBM PC range, mainly because you need 
the speed of the new 32-bit chips to make 
these intricate database management 
functions possible without excessive 
delays. We will also need the addressing 
range of the 32-bitters to provide the 


working space necessary for large data¬ 
bases - and without these hypertext is 
largely unnecessary. 

Add to this the value of good quality 
graphics and multivoiced sound, and you 
can begin to predict where this is all going 
to happen in the PC world. 

Obviously the Mac SE and Mac II are 
the desktop machines which hypertext will 
benefit the most - and Apple hasn't been 
slow to see the opportunities. But hyper¬ 
text is also a system for mainframes and 
minis, and so a combination of PC termi¬ 
nals accessing on-line hypertext systems 
might be the way most of us will use hy¬ 
pertext. □ 


Product Details 
Product: CD-Guide 
From: OWL Incorporated 
Distributor: Pica Pty Ltd, 38 Ardoch St, 
Essendon 3040 Vic. 

(03) 370 3566 


Product: HyperCard 
From: Apple, 6 Rodborough Rd, 
Frenchs Forest 2086 NSW 
(02) 952 8000 

Price: HyperCard is bundled with the 
Macintosh range 


58 Learning with YC 




Behind HyperCard 

■Parti 


T HERE ARE QUITE a few computer 
journalists more enthusiastic than 
I am about HyperCard - and yet I 
think it's one hell of a program. 
Gareth Powell at the Sydney Morning Her¬ 
ald, for instance, promotes it as the most 
important program of the decade. I'm not 
sure that I would go out on a limb this far, 
but HyperCard is obviously revolutionary 
and also interesting. So even if the 
revolution fizzles, the fascination might 
remain. 

One thing is for sure; you are not going 
to waste your time by learning about Hy¬ 
perCard. At the very least it is certainly the 
foretaste of programs to come. So if 
you're a Macintosh user with even the 
slightest interest in discovering how fu¬ 
ture data management programs will 
work, you should spend a few hours look¬ 
ing 'behind the scenes' of HyperCard and 
digging into its programming language 
HyperTalk. 

This is such revolutionary software that 
some of the more showy features have 
tended to disguise important innovations 
that lie behind. For instance. HyperCard 
provides the novice with a gentle pathway 
into programming - an aspect which is 
quite unusual with substantial procedural 
languages. If you want to write anything 
worthwhile in C or Pascal or dBase III then 
you've got to sit down for two or three 
months and learn a mass of very esoteric 
commands and syntax before you can 
create code remotely worthwhile. Nine out 
of ten writers of Basic probably never write 
anything of any use to anyone. But Hyper¬ 
Card is different. 

At the basic level, the program auto¬ 
matically programs itself through clicking 
and linking. It's not the first Mac program 
to do this, but it is the best. You can take 
this automated programming process a 
significant step further with very’few lines 
of handwritten code and you'll be capa¬ 
ble of doing this by the time you finish 
this article. 


HyperCard is undoubtedly 
revolutionary, but this 
extraordinary, complex 
procedural language 
is probably the easiest to 
program - a fact which 
disguises a number of 
important innovations! 


This is what is so amazing - this ex¬ 
traordinarily complex 'language' is prob¬ 
ably the easiest to program in a worth¬ 
while way. 

HyperTalk 

T here's a lot been written about Hyper¬ 
Talk as an 'object oriented' language 
like the famous SmallTalk, but it is not a 
true 'object orientated language', and it 
also owes plenty to the standard single- 
structure languages like dBase II. 

Apple admits that HyperCard is not a 
'classical ob|ect-oriented programming 
system, although it implements some ob¬ 
ject-oriented concepts, such as passing 
messages and having objects.' Are you 
any the wiser? Hang on - you will be! 

Apple will soon have the HyperCard 
Script Language Guide in print if you really 
want to get deeply involved, but at the 
time of writing the manual is only avail¬ 
able the draft level - and it has some mis¬ 
takes. Danny Goodman's book, The Com¬ 
plete HyperCard Handbook still hasn't ar¬ 
rived at this time, although I hope to be 
reviewing it by the time this series is in 
print. 


The only way to understand HyperCard 
is to play with it. And the only way to in¬ 
vestigate HyperTalk is to go inside, have a 
look around and make some changes - so 
first of all make a copy of the disk Hyper¬ 
Card and Stacks and use that as a tutorial 
disk. Fire up the copy, and let's have a 
nosey around inside 

Clicking on the HyperCard icon should 
bring you up on the Home Card, and by 
clicking the left arrow at the bottom of the 
card you will go straight to the last card in 
the Home Stack - the User Preferences 
card. 

Click on the Scripting radio button at 
the bottom this provides you with 
'tools' to enable you to create and alter 
stacks and script. Notice that the top 
menu bar has changed; along with the 
Tools menu there's now one labelled Ob¬ 
jects. Why this emphasis on Objects? 

HyperCard programs aren't flowing 
streams which start at one point and fin¬ 
ish at another, rather they are collections 
of discrete code modules (called 'han¬ 
dlers'!. Each module is part of a 'script' 
attached to an 'object'. There can be hun¬ 
dreds or thousands of handlers in a Hy¬ 
perCard stack, each of which performs its 
task quite independent of the others al¬ 
though they communicate with each other 
by sending 'messages' 

The word 'object' js used in an analo¬ 
gous way. There is nothing physical about 
these objects. HyperCard has five different 
types of 'object' - Buttons. Fields. Cards, 
Backgrounds and Stacks plus two quasi¬ 
objects (Home Stack, which is just a spe¬ 
cial form of stack, and the HyperCard pro¬ 
gram itself which often acts like an ob¬ 
ject). 

You activate an object (usually, by click¬ 
ing on it or sending it a command/mes¬ 
sage) and its handler code sends a mes¬ 
sage through a predefined pathway to an¬ 
other object. If this object's handler 
recognises the message some action is 
usually initiated. 
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For instance, go to the Home Card and 
click on the Phone icon. You jump in¬ 
stantly to the Phone Stack ready to insert 
a new phone number. Your click within the 
active area (a transparent button) over the 
Phone icon initiated a message from the 
attached handler, This message then 
flowed up through the various levels of 
the program until it was registered by an¬ 
other object (in this case HyperCard itself) 
and this triggered the switch to the Phone 
Stack. 

The action has to be predictable - in 
other words there must be some order to 
the sequence of objects, and this is where 
the heirarchy comes in. Messages flow up¬ 
wards from low-level objects (buttons and 
fields) to higher levels - and the higher 
the level the more widespread the action. 

Obviously the handler that actually 
made the switch between Home and 
Phone stacks needs to be at a higher hier¬ 
archical level, since its effect (the switch 
to a new stack) is felt by all the cards, 
backgrounds, buttons and fields below it. 

Think of it as an inverted tree structure 
with one Home Stack at the top trunk 
level, a number of Stacks below on main 
branches, then many Cards each with 
Background, Fields and Buttons. It's a 
matter of one Supreme Commander, a few 
Generals, many Lieutenants, hundreds of 
Corporals and thousands of Privates. 

Change back to the Home Card and 
we'll have a look at the the script that 
initiated the action that swapped you to 
the Phone stack. From the Tools menu, se¬ 
lect the Button tool in the middle of the 
top row. Then click on the Phone icon to 
select this button (you'll see a rectangle 
of walking ants), then go to the Button 
Info bar of the Object menu and click 
again. 

In the dialog box which now appears, 
click on the Script panel, and this will re¬ 
veal the handler responsible for the ac¬ 
tion. The script attached to this button 
only has one handler that begins at the 
keyword 'on' and finishes with the line 
beginning with 'end' - 


on mousellp 
go to stack JJ Phone" 
visual effect 200m 
end mouseUp 


It couldn't be much simpler, could it? It 
doesn't take a college education to realise 
that 'mouseUp' is the release phase of 
clicking the mouse, and that 'go to 
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Figure 1. in HyperCard, not all objects are equal. There's a rough sort of heirarchy in the 
status of objects - Buttons and Fields are at the lowest level, then progressively Cards, 
Backgrounds, Stacks, the Home Stack, with HyperCard itself at the top. The Home Stack 
is a special case, and you can treat HyperCard itself as an *object ' since it can both send 
and receive messages. 


'Phone" is the message (the command) 
that causes the stacks to swap. This issued 
message has the messageName 'go', 
(which is also a HyperTalk command) and 
so in this case it is captured and used by 
the HyperCard program itself (but it need 
not be). 'Phone' is the parameter. The 
word 'to' and the quote signs are super¬ 
fluous, and are included to make the 
script more readable and avoid ambiguity. 

There's also a line of code here which 
creates the visual zoom effect, but it's not 
necessary for the system to work. It is, 
however, a good indicator of how English- 
like HyperCard's command language is, 
and this makes it easy to learn. In fact, we 
can do some programming ourselves 
while we are here. 

Notice that the cursor assumes the I- 
beam style (as in MacWrite) whenever it is 
in the script area. This shows that you can 
add, modify or delete command lines in 
exactly the same way as you would change 
the text of a letter. 

Try it now. After the 'on mouseUp' line, 
insert a new command line that just says 
'beep' (no quotes) or 'beep 3', if you want 
to be flashy. Click on the OK panel, de-se- 
lect the button icon in the Tools menu 
and try it out. From now on the Phone 
icon, and only the Phone icon, will sound 


the bell (once or three times) when you 
select it. See how easy programming is! 

While you are at the Home Card, use 
the Objects menu to have a look at the 
script associated with the Home Card it¬ 
self, its background and the Home Stack. 
You'll see an increasing degree of com¬ 
plexity as you get further up the heirarchy, 
as you v;ould expect. 

At the Card level there are three script 
modules ('handlers') to do with updating 
the time on the card and showing or hid¬ 
ing the Copyright notice. The Copyright 
notice only appears at boot-up. 

The Background script has been set to 
handle things like the non-appearance of 
the message box and the menu bar when 
the Home stack is opened, and the Stack 
script is primarily concerned with external 
commands ('XCMD' in the jargon - from 
C, Pascal or the Mac assembly language) 
and the storing of information such as the 
User's Name and preference level. 

But, just as the higher levels are obvi¬ 
ously hard to understand, the lower levels 
are certainly easier than you expected, 
aren't they? You might not be able to 
reprogram a Home Stack in your first few 
days, but you can manipulate buttons and 
fields, and there's a progressive learning 
path through this program. 


60 Learning with YC 




Heirarchy 

I n HyperCard, not all objects are equal. 

There's a rough sort of heirarchy in the 
status of objects which you will see if you 
pull down the Objects menu (Figure I). 
HyperCard recognises, in order of impor¬ 
tance, Button and Field objects as equal 
bottom, then progressively Cards, Back¬ 
grounds and Stacks. The menu list is up¬ 
side down to my way of thinking; Stacks 
should be on the top. 

The full extent of the operational hei¬ 
rarchy of the program has Buttons and 
Fields are at the lowest level, then pro¬ 
gressively Cards, Backgrounds, Stacks, the 
Home Stack, with HyperCard itself at the 
top. The Home Stack is a special case, and 
you can treat HyperCard itself as an 'ob¬ 
ject' since it can both send and receive 
messages. You will understand the signifi¬ 
cance of this later. 

Think of the program as a five-storied 
building with a basement. When mes¬ 
sages arrive at the front door they are first 
checked at the lowest level to see whether 
they are intended for this floor. If they are 
not intercepted here they are passed on to 
the next floor, then to the next, and so on 
until some may finally trickle through to 
the big boss at the top and he deals pri¬ 
marily with 'commands'. 

Mouse messages come through the 
sewer, so these are first checked at the 
basement level (Buttons and Fields), 
while most other messages come in at the 
street-level (Cards). But however they 
enter the building, messages always move 
upwards, if they are not intercepted. 

The internal activity of HyperCard all 
depends on 'messages'. For instance if 
you click down on the mouse button this 
action sends a system message called 
'mouseDown'. When you let the button 
up, the message 'mouseUp' is broadcast. 
If you don't do anything at all, the pro¬ 
gram constantly broadcasts the message 
'idle'. 

The term 'message' here is used in a 
wider fashion than the^erm 'command' 
(builtin keywords initiate some action). It 
often includes both a command and a pa¬ 
rameter, such as 'go' (the command) 
'Home' (the parameter). It also includes 
system-event messages sent as a result of 
some action (like clicking the mouse), 
'function calls' (builtin calculations which 
return some value to the initiating han¬ 
dler), and message or function names that 
you have made up during scripting to trig¬ 
ger some action further up the object hei¬ 
rarchy. Many messages have parameters 
attached, but they don't need to. Here are 
some examples of messages - 


HyperTalk 

HYPERTALK IS A very flexible language. 
It doesn't worry about upper or lower 
case, nor does it have an excessively 
strict syntax. However, to avoid ambi¬ 
guity it is best (but not essential) to 

a) Enclose names within quotes (for ex¬ 
ample. go to stack 'Home'), 

b) Put the word 'stack' in front of a Stack- 
Name, 

c) Put the word 'card' in front of a card- 
Name/number, 

d) Address a card, button or field by its ID 
number, 

e) Put the words 'card field' in front of a 
card field name to avoid confusion with a 
background field, and 

f) Ideally refer to an object by both its 
type (for example, 'card') and identifica¬ 
tion number (for example, ID 5734) 


go Home - HyperTalk command 4* pa¬ 
rameter 

mouseUp - system 'event' message 
xyz - message to author-defined handler 
that will start with 'on xyz' 
average (Len I, Len2)-function call 4- pa¬ 
rameters 

nameLength (lastName) - author-defined 
function call 4* parameter. 

MouseUp or mouseDown (event) mes¬ 
sages flow first to the topmost button or 
field attached to the area under the cursor 
(they are directed to the appropriate but¬ 
ton or field by the program, since it keeps 
track of where the cursor is). 

The system-event messages mouseEn- 
ter, mouseWithin, and mouseLeave are 
generated within the program and flow to 
the appropriate button or field object. But 
these are post-facto (after the event) mes¬ 
sages, and they are sent after the program 
has already decided which field or button 
the cursor has entered/left. 

The mouseLeave message is sent only 
to the button or field that the cursor has 
vacated - and then it passes on up the 
heirarchy until it finds a handler that 
needs a 'mouseLeave' message. 

If they aren't recognised at the Button 
or Field level, all messages pass to the ap¬ 
propriate Card, then to the Background, 
the Stack, the Home Stack and on the Hy¬ 
perCard. Messages can be intercepted at 
any level where the appropriate script 
handler exists, and they can act from any 
level. 

For instance, a handler which puts the 
time into a card field, doesn't iTave to be 
at the field level, it can be at the Card, 
Background or Stack level just as easily - 


and at these levels its influence will be 
progressively wider. 

When you are programming, it is usu¬ 
ally your decision as to which level you 
will write a handler and you decide this 
on the basis of how wide you want the in¬ 
fluence of the handler to be felt 

System messages aren't the only kind. 
As we have seen there are also HyperTalk 
command statements, function calls, and 
also you can type messages into the mes¬ 
sage box by pulling down the Go menu. 
This is actually a form of direct program¬ 
ming. 

Try writing 'go to next card' in the mes¬ 
sage box. You'll see that the reaction is 
exactly the same as if you'd clicked on the 
appropriate arrow/button - because the 
issued message was exactly the same. 

Your keyboard-entered message came 
in at the second (Card) level, then tra¬ 
velled up through the system until it 
reached HyperCard itself. At this level the 
'go'* message was recognised as a com¬ 
mand and the 'next card' parameter was 
acted upon. 

If you select the Stack Info bar from the 
Objects menu, then show its script, and 
write a short useless handler like 


on go 

play ^bo i 
end go 


You will find that this short-circuits any 
messages in the message box like 'go to 
next card'. If you've got card or back¬ 
ground arrow buttons that previously took 
you to the next card, or the last card, 
you'll find that they don't work either. 
Everytime you try, the system just 
'boings'. 

Taking control 

his is a trivial example with important 
consequences, because it means that 
you can write your own handlers using a 
messageName identical to a HyperTalk 
command, and steal control from this 
command. You can use the command for 
your own purposes, then pass it on again, 
if you wish. 

But we are jumping ahead too quickly! 

Objects don't necessarily need to have 
scripts associated with them. For instance, 
from the Home Card, select the Field tools 
(right in Tools menu) then click on the 
small field that holds the Time on the bot¬ 
tom right of the card. Go to the Objects 
menu, select Field Info, then click on 
Script and you'll see that this 'field' ob¬ 
ject doesn't have its own script. 

This is natural enough; this is a special 
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on mouseUithin 
beep 

end mouseUithin 
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field just for display. Clicking on the time 
or changing the numbers is not intended 
to initiate any action through the system. 

This object (a field) is a passive receiver 
of messages originated by the hardware 
clock chip. However there must be a script 
handler somewhere to intercept the clock 
messages and cause the numbers to be 
displayed - and you'll find this in the 
Home Card script. It could have been 
higher at the Home Stack level. 

So some objects have no script, and can 
therefore send no messages. At the other 
end of the spectrum, some parts of the 
HyperCard system are constantly sending 
messages, and other objects are con¬ 
stantly receiving them and interpreting 
them through script handlers. 

if you are moving the cursor about on 
the screen and you enter an area allocated 
to a button (or a field), HyperCard sends 
the message 'mouseEnter' through the 
system (entering at the appropriate but¬ 
ton or field) and cycling back to itself. 
While the cursor remains within this hot¬ 
spot, the program constantly broadcasts 
'mouseWithin' messages, and as it leaves 
the area it sends 'mouseLeave' 

The button field itself usually doesn't 
do anything with this stream of cursor- 
position messages because its handler 
has been set to look for the mouseUp 
command of a click unless it has been 
deliberately changed - which is what we 
will now do! 

For no other reason than to get com- 
fiortable with modifying scripts, find your 
way again back to the script handler be¬ 
longing to the Phone button on the Home 
Stack, and change the two 'mouseUp' 
references to 'mouseLeave'. Exit the 
script, re-set Tools, then pass your cursor 
over the Phone icon. Your change now ac¬ 
tivates the stack swap as you withdraw the 
cursor from the button area; you don't 
need to click. 

Here's another fun one. Select the Time 
field on the Home Card, and enter the 
three line script 


Now whenever your cursor is within the 
Time field area on the bottom left of the 
card, the bell will sound. 

Customisation at last! 

In Part 2 we'll look further at messages 
and handlers, and get a better idea of the 
way different messages are handled within 
the system, and what this means to the 
programmer. □ 
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Behind HyperCard 

•Part! 


I N PART I. We saw that messages were 
read and acted upon by message-and 
function-handlers which created 
some activity or, in turn, passed a new 
message through the system, or were 
acted upon by HyperCard itself. Let's 
create a new stack and see how much 
script is automatically generated. 

First, go to the New Stack bar in the File 
menu and create a stack called Trial. Don't 
forget to knock out the check box which 
says 'Copy current background' - we 
don't want a background at this stage. 

Now let's create a background our¬ 
selves. Go to any card in the present 
demonstration stacks. Virtually all of them 
have a Home icon that we can copy by 
choosing the Button tools, selecting, then 
copying the button, lump back to the first 
card in our new stack, select the Edit 
menu, set the Background to ON, then 
paste our Home icon into the background. 

You can now add a couple of your own 
fields and decorate it with a few MacPaint- 
type boxes or lines -■ whatever takes your 
fancy. Now, after switching off the back¬ 
ground mode, you should create a few 
new cards so that you have something to 
play with. 

At this stage, have a quick look through 
the scripts in the object hierarchy of the 
Trial stack. You'll find nothing in any of 
them (Stack, Background, Card or Field) 
except for the Home button which con¬ 
tains a three or four line 'handler' which is 
waiting for a 'mouseUp' message, at 
which time it will transmit a 'go to Home' 
message. 

This lack of script handlers is what you 
would expect, if you think about it. Apart 
from the Home button, we haven't created 
anything that initiates an action, or awaits 
a message. Everything else we can do with 
this stack needs to be done through the 
menu -bar, and these create commands 
that are all handled by the top manage¬ 
ment level of HyperCard itself. 


How different messages 
(and functions) are handled 
within a HyperCard system 
- and what this means to 
programmers . . . 


Although there is no script attached to 
most of these new objects (stack, back¬ 
grounds, cards, fields and buttons), they 
have each been provided with an identity 
- even if you didn't bother to name them. 
If you pull down any of the Card Informa¬ 
tion boxes from the Objects menu, you 
will find both a stack-order number, and 
an ID #. If you add or delete cards from 
the stack, the order number can change, 
but once the ID is allocated it remains the 
same for the life of the program. 

Time field 

et's create a Time field in the same 
way as we did the Home button. Go to 
the Home Card, select the Field tool, click 
on the Time field area at the bottom left of 
the card to select it, then copy this field 
through the Edit menu. Back to our new 
stack then paste in our Time field and 
try it. y 

Hisses and boos! Nothing works. 
There's no time in the field. Why? If you go 
back to the Time field on the Home Card 
to look at its script you'll find that there 
isn't any. The messages labeled 'time' 
come into the system at the second-floor 
level. 


Remember: only the mouse messages 
(and a few special cases) arrive at the low¬ 
est Buttons and Fields level of the pro¬ 
gram, therefore if you are going to inter¬ 
cept 'time' messages from the clock, the 
script has to be at the Card level at least. 
(Note* 'time' is a function) 

If you jump up to the Home Card script 
you will find the right handler there 


on idle 

put the time into card field "Time" 
pass idle 
end idle 


If you can remember back to Part 1,1 ex¬ 
plained that the 'idle' message was con¬ 
stantly being sent by the system when it 
was in a wait-state. So this 'handler' is 
saying: 'Since we've got nothing better to 
do, put the time message up on the screen 
inside the card's Time field. Then pass on 
the idle message (some other part of the 
system may need it), then end this han¬ 
dler.' 

It is worth reiterating that this handler 
doesn't need to be at the field level even 
though its effect is to place a variable in 
the field. The handler doesn't even need 
to be at the Card level - it could just as 
easily be at the Background or Stack 
levels. 

So let's go back to our new background 
and type this handler into our new Trial 
stack. If we put it into the Card informa¬ 
tion, then the time will only come up on 
that one card but we want the time to be 
on every card in the stack (this is why we 
pasted our field into the background - 
rather than the card). 

So we will copy the handler into the 
Background script making one modifica¬ 
tion. The second line must now read: 


put the time into background field "Time" 
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cows come home, but nothing will happen 
unless you are on a button, a field, or a 
menu area - in which case the message 
will probably be passed to a handler in a 
script at the appropriate level. 

HyperCard knows which button to di¬ 
rect the mouseUp message to, because it 
has some sort of a cursor-location/mes¬ 
sage-direction functional unit built-in at 
the top level. This unit also issues a series 
of cursor position messages all the time 
you are moving the mouse. 

As your cursor entered a field or button 
area, it issued a 'mouseEnter' message, 
then a constant stream of 'mouseWithin' 
messages, and finally when you leave the 
area, a 'mouseLeave' message. 

Target 

T he term 'target 7 in HyperCard has a 
special meaning. If a message is sent 
to a button then this is the 'target', even if 
the message is not interpreted by the 
button's script but passed on to a handler 
at a higher level in the hierarchy. 

'Target' is a function that remembers 
the entry point into the hierarchy. Try this 
handler at Background or Stack level: 


on mouseWithin 
put the target 
end mouseWithin 


The word 'the' in the second line is 
mandatory unless you add parentheses 
after the word 'target' as in 'put tar¬ 
get!)' 

'Target' is a function, and functions are 
identified either by the word 'the' before 
the function-name, or'()' after. If there are 
any parameters they go between the 
parentheses, in order, and separated by 
commas. 

In this handler we didn't need to say 'in 
the message box' at the end of line two 
since this is assumed (it's the default) if 
nothing is specified. But for clarity and 
consistency sake we should probably 
make this line: 


put target() in message box 


Bypassing 

s you can see the hierarchy of Hyper¬ 
Card is all-important, however you 
can bypass the strict order in a couple of 
ways. The 'send' command short-circuits 
the system by sending messages directly. 


For instance if you are at Card 3 in a 
stack and the handler issues a message 
line-. 


send "mouseUp" to button 3 or card 15 


- the message will travel there directly, by¬ 
passing any 'mouseUp' handlers in be¬ 
tween. 

Let's get back to some practical exam¬ 
ples. Create a button on a new card in 
your Trial stack and link it to the Home 
Card, then modify the script to read: 


on mouseUp 

send "go to Home" to HyperCard 
end mouseUp 


You will see that the button still acts the 
same as if you'd left the middle line: 


go to Home 


All that 'send' command has done is to 
leap-frog all intervening stages and issue 
the command directly to HyperCard at the 
top of the hierarchy. There is, however, a 
difference between the two handlers. With 
the 'send' version you can no longer inter¬ 
cept the 'go' message by placing another 
'go' handler at a higher level. 

Try this line between mouseUp han¬ 
dlers: 


send "go to Home" to stack "Phone" 


- then watch the top window bar (which 
shows the stack name) when you click on 
this button. It jumps to the Phone stack 
first, then to the Home. 

The concept of the hierarchy of objects 
that I illustrated in Part 1 with a five-storey 
building plus a basement (for Buttons and 
Fields) is actually a bit too simplistic. 
Apple themselves have also been carried 
away with over-simplifying the concepts, 
with the result that some of the explana¬ 
tory material in the draft manual is mis¬ 
leading and sometimes downright incor¬ 
rect, so be warned! 

Let's write a series of simple handlers 
to check out the hierarchy of HyperCard. 
You should know by now what would hap¬ 
pen if you created a button and wrote in 
the script: 


on mouseUp 
go next card 
end mouseUp 


If you clicked on this button you would 
swap to the next card. Now write the same 
script in at the Card level. 

Apple's manual says that if you now 
click on any button youwill jump to the 
next card - but, of course, that is only true 
if the button doesn't have any mouseUp 
handlers attached - and most of them do. 
Clicking on a button is what buttons are 
primarily for, and so buttons usually have 
a mouseUp handler of some sort and 
very rarely will these have the line 'pass 
mouseUp'. 

So, try clicking outside a button. It 
sometimes works, and sometimes 
doesn't. If you are on an area of the card 
or background not covered by a field or 
button, then your click will take you to the 
next card. But if the cursor is within a field, 
there will be no action, and if it is within a 
button area with a mouseUp script at¬ 
tached, then this action takes precedence. 

This illustrates a very important point. 
When you think about it, the mouseUp 
message isn't being generated by the 
mouse - except in the mechanical sense. 
The message comes from within the Hy¬ 
perCard program, and it must flow 
through a couple of secondary stages in 
the program in order to be directed to a 
particular button or field. 

Somewhere within the program (at the 
highest leve 1 of our hierarchy) there is a 
functional unit of code which is checking 
the position of the cursor, and recording 
whether the pointer is within, or outside, 
screen areas which delineate fields, but¬ 
tons and menus. 

When you click in a field area, the pro¬ 
gram allows you to begin to write text 
within that area. So the mouseUp mes¬ 
sage must be intercepted by a top level 
handler within HyperCard itself, and it is 
this signal that causes the pointer to 
change to an I-beam in preparation for en¬ 
tering text. This handler does not pass the 
mouseUp message through, so it can't be 
used to activate a handler at the Card 
level. 

The same applies whether you add the 
above handler to the background or to the 
stack. Clicking within a button area means 
that the mouseUp message is intercepted 
by the button script (in most cases) while, 
within a field or menu area, it is inter¬ 
cepted by the HyperCard program itself. 
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You'll now find that the clock works per¬ 
fectly, and it'll appear on every new card 
in the stack, as long as that card uses the 
same background (with HyperCard, it 
doesn't have to!). 

Now let's get tricky! If you select and 
copy this Time field again, then paste it 
into one of the Cards in the stack at the 
Card level, you can get two clocks working 
on the same screen - one on the Back¬ 
ground and the other on the Card. You'll 
need to add an (almost duplicate) handler 
to the Card script with the second line re¬ 
written to: 


put the time into card field ’Time" 


Note that on this occasion we specify 
'card' field. 

If you don't specify either card or back¬ 
ground, then background is assumed for 
fields (it's vice versa for buttons). Note 
also that we now have two quite different 
fields called Time, which is not wise, but 
the system can handle the potential con¬ 
fusion as long as they exist on different 
levels. Much better practice would be to 
rewrite the second handler lines to direct 
the time variable to card/background field 
ID xxxx - then there can be no ambiguity. 

Flexibility 

ypertalk is a very flexible language. 
There are many superfluous words 
often included in HyperCard scripts sim¬ 
ply to help with clarity. There are also al¬ 
ternatives and condensed versions of 
commands and keywords. 

For instance 'go' and 'go to' are the 
same, and you can say 'go home' or 'go to 
stack "Home'", it makes little difference - 
although enclosing the name of the stack 
in quotation marks ensures that it won't 
be confused with some variable, or what¬ 
ever, that might exist with the same name. 

HyperCard treats upper and lower case 
the same but, by convention, you should 
use uppercase to make joined words more 
readable (like: mouseUp). 

You can also address an object in a vari¬ 
ety of ways. For instance you can name a 
card "Mabel" if you want to, and then issue 
the command 'go to card "Mabel"' Or you 
can specify a card as the 'second card' in 
the stack, or as 'card w', or as 'card ID 
2439'. 

But I digress. Back to our example. The 
third line in the clock handler was: 


pass idle 


- in both the Card and the Background 
script. Go into your Background script and 
delete this line. You'll find it makes no dif¬ 
ference. Now delete the line from the Card 
script. You will find that the Background 
clock stalls. It can't increment because the 
message 'idle' is being intercepted at the 
lower Card level, and not being passed on. 

This is a very graphic illustration of the 
way HyperCard's object hierarchy works - 
and how messages are absorbed and 
used, and/or passed on through the sys¬ 
tem to higher levels. 

Incidentally, I am not recommending 
that you put a time field into every Hyper¬ 
Card background. It's OK if your stack is 
going to be read-only, but if you attempt 
to write to a field on a card with such a 
time-field already in place, you'll find that 
your cursor suddenly disappears once 
every minute. 

What happens is, that the time-field 
takes control of the cursor automatically 
to insert the updated time, and you will 
have to laboriously reposition the cursor 
and click to get it back into the writing 
area each time. 

Modular 

ithin an object's script, messages 
are also handed down on a modular 
basis. The message is tested against the 
first handler, then the second, then the 
third and so on. Each handler consists 
of a number of discrete elements - usually 
automatically indented in the script to 
make them easier to read. 

The most basic form of handler is three 
lines of code like: 


on mouseUp 
go to stack "Home" 
end mouseUp 


The first line must begin with either the 
keyword 'on' which identifies a message 
handler, or 'function' which identifies a 
function handler - so these lines are 
called 'message indicators'. 

Functions are inbuilt mini-programs 
which can calculate averages, extract 
characters from a string, and so on - they 
always return some value to the handler 
which called them. We'll look at functions 
later, here we are dealing only with mes¬ 
sage handlers. 

The last line in the structure must begin 
with the keyword 'end' (end-of-handler in¬ 
dicator) and be followed by the handler 
name (here, mouseUp) which must be the 


same as the handler name on the first 
line. These are the 'book-ends'! 

When a message reaches an object it is 
checked against the handler(s) in the 
script, and if the message-name matches 
a handler-name, the lines following are 
executed in order until the 'end (handler- 
name)' line is reached. 

There can be any number of execution 
lines between the 'on xxx f and the 'end 
xxx ' lines, but it makes sense to keep 
them short, if possible. You can always 
call another handler if need be - just like a 
GOSUB in Basic. 

Let's look at our simple example above 
under the microscope. The message 
'mouseUp' comes into the system at the 
Button/Field level, directed at a particular 
button (dependent on the cursor posi¬ 
tion). Since the message-name 'mouse¬ 
Up' matches the handler-name in the first 
line of the button's handler ('on mouse¬ 
Up'), the subsequent line(s) are executed 
and the command statement ('go to stack 
"Home") is issued through the system as a 
message-in-reply. 

The original message ('mouseUp') 
doesn't go any further in the system un¬ 
less the special statement line 'pass 
mouseUp' is included in the handler. 

Normally, if none of the objects in the 
chain have a handler-name that matches 
the message-name, the message will flow 
right on up to the top level, which is Hy¬ 
perCard itself. Hypertalk has a whole 
series of command interpreters which are 
virtually built-in handlers, and these initi¬ 
ate action at the top program level. 

But not all system messages or com¬ 
mands have a handler within Hypertalk it¬ 
self. For instance mouseUp doesn't mean 
a thing at the Hypertalk level (unless the 
cursor is within a field) - which is why you 
can click your mouse button until the 
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Names 

on't get carried away by the need to 
use pre-defined terms like mouseUp 
or startup as handier names. Obviously a 
standardised set of words has been estab¬ 
lished so that command routines can be 
built into the program and so that key¬ 
board and mouse events have a fixed 
nomenclature, but when you are writing 
your own script you can use any handler 
name you want - including those already 
used as commands and in-built functions, 
lust remember the hierarchy! 

Here's an example, in a button script 
you could write a handler: 


on mouseUp 
xyz 

end mouseUp 


Then higher in the hierarchy (say, Stack 
level) you could have: 


on xyz 

go next card 
end xyz 


It works perfectly. The mouseUp mes¬ 
sage flows down from HyperCard and 
causes an 'xyz' message to be sent from 
the Button level. The message flows up 
through the hierarchy and, in turn, causes 
a 'go' message to be sent (together with 
its parameter 'next card') from the Stack 
level. This triggers the action at the Hyper¬ 
Card level. It's actually a circular flow of 
control. 

You'll find a lot of these author-in¬ 
vented messageNames used in Hypertalk: 
words like 'getHomelnfo' which are de¬ 
scriptive of the job they are being called 
upon to do. You aren't limited only to the 
set messageNames specified by the 
program's creators. 

When a non-HyperTalk messageName 
(like 'xyz' or 'findNextCard') is used in a 
handler line without a parameter it simply 
calls another handler into action, some¬ 
where higher in the program, as if it were a 
sub-routine. 

This handler would be executed, and if 
it triggered another handler into action, it 
too would be executed. Finally, after the 
chain of events had come to a stop, the 
control would revert to the original han¬ 
dler, and the next line in the handler 
would then execute, in turn. 

There's an exception here. Any line 
beginning with 'pass' must be the last 
line before the 'end' line. Once the origi- 


HyperCard commands to try 

Sandwich these commands between 
mouseUp or mouseEnter lines and see what 
they do. To automatically create a dialog 
box, then add any input to a variable called 
'It', try this - 

Answer "question" 

Answer "question" with replyl or reply2 
Ask "question" 

Ask "question" with defaultAnswer 

Here's a handy routine - 

Open file fileName 
Close file fileName 

Using this command, HyperCard will get 


nal message has been 'passed', the re¬ 
mainder of the handler ceases to function. 

In the example above, the execution of 
the program would move down the Button 
script, then from the xyz line it would ef¬ 
fectively GOSUB to the Stack level handler 
which issues the 'go' message, then to the 
HyperCard level to make the change, then 
return to the 'end mouseUp' line of the 
Button handler. 

The chain of handler actions could, in 
fact, jump a number of stages further away 
and still return. Handlers can call other 
handlers, which call other handlers - but 
control will always return to the source of 
the sub-routines to complete the original 
handler before the regular pattern of flow 
through the object hierarchy is re-estab : 
lished. 

With most sub-routines these second- 


whatever is in source (a field, for example) 
then execute it as a command - 

Do source 

For the equivalent of a mouse selection - 
DoMenu menuItem 

It's also worthwhile experimenting with: 
find, get, go, hide, show, play, put, read, 
write, send, set, sort, type, and wait. And, ex¬ 
periment with the keyboard: ArrowKey (up, 
down, left, right), EnterKey, FunctionKey, Re- 
turnKey, TabKey; and the CommandKey, the 
OptionKey, and the ShiftKey - these last 
three are functions and therefore return 
values which can be put in message box, or 
used in some other way. 


ary handlers will usually be in the same 
script, and there's one slight oddity here. 
The message being sent from the Button 
(or any other object) flows, first of all, 
through its own script - from the begin¬ 
ning - before traveling on up the hier¬ 
archy. 

So it doesn't matter whether the sec¬ 
ondary (sub-routine) handler appears in 
the script above, or below, the primary 
handler. The message will still find the 
handler and create any action, then execu¬ 
tion will return to the next line of the pri¬ 
mary handler. 

There's a danger here in that you can 
turn messages back on the handler in an 
infinitely oscillation - like loudspeakers 
feedback through a politician's micro¬ 
phone. Recursion is possible, but it must 
be used with discretion. □ 
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Behind HyperCard 
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Serious users may see HyperCard as a junior sibling to 'real' object-oriented languages 
like Lisp or SmallTalk - but for non-professional programmer's the language is superb! 


T HIS IS THE last in this brief four part introduction to Hy¬ 
perTalk, the language of HyperCard. We have not aimed to 
produce a definitive tutorial - more a taster, to give you a 
flavour of the language, and to demonstrate how easily 
simple, useful scripts can be added to your stacks. 

If you want to go further with this language, we suggest you buy 
one of the many good books now available on the subject. Danny 
Goodman's The Complete HyperCard Handbook is excellent for the 
beginner, as is Carol Kaehler's HyperCard Power. For more ad¬ 
vanced programming try Dan Shafer's HyperCard Programming. 

Despite the obvious enthusiasm of a lot of Mac programmers 
for HyperTalk, it is becoming increasingly obvious that the pro¬ 
gramming language has substantial limitations. Many serious 
programmers see it only as a junior sibling of 'real' object ori¬ 
ented languages like SmallTalk and Lisp. 

But for the non-professional user/programmer the language is 
superb. It has a complete set of system messages (mouseUp and 
so on), excellent mathematical functions and text-string com¬ 
mands, variables (both global and local) and even includes nest¬ 
able condition testing (if then). 

And the language is dynamic; the new release (Version 1.2) fills 
some of the gaps and improves the range of possibilities without 
creating any problems with past scripts. This latest version has 
just arrived on my desk, so it should be in the hands of dealers by 
the time you read this. 

Some changes 

ne of the more important changes is to increase the range of 
actions of 'me' and 'target'. We discussed 'target' briefly in 
the previous part: remember, it is a function that returns the point 
of entry for a system message. For instance, if you click on a cer¬ 
tain card field or button, then the button or field ID or name is re¬ 
turned and can be used or displayed as required. If the cursor is 
outside a button or field when you click, then the Card ID is re¬ 
turned. 

Try this simple script to understand how this works. We'll use 
the mouseEnter, rather than the mouseDown or mouseUp system 
messages, and add the script at the card level - 


on mouseEnter 
put the target 
end mouseEnter 


MouseEnter is a system message that is sent whenever the 
mouse enters an active area (field or button), and if we don't 


specify where to 'put the target' information, then it will be dis¬ 
played in a message box by default. 

Previously 'the target' referred only to the object (the button or 
field), and if the target was a field, there was no way of accessing 
its contents. In Version 1.2, 'target' (without the 'the') refers to 
the contents of a field. Therefore - 


put target into myVar 


or 

put "Fred" into target 


are now acceptable, whereas they wouldn't have been in the ear¬ 
lier versions. 

It is difficult to separate the concept of the object and its con¬ 
tents sometimes - but this distinction needs to be made if you 
are to keep the logic of the language in your handlers. 

There is a similar problem with the use of 'me'. Change the 
middle line of the above handler so that it reads 


on mouseUp 

put the name of me 
end mouseUp 


You will find now that whenever you enter a field or button area, 
the message box will pop up with the name (or ID number) of the 
Card (not the button or field). The term 'me' always refers to the 
object containing the current handler - and since you wrote this 
handler at the card level, it will always return the name or ID of 
the card. Try this change - 


put the name of this background 


and you will see that the word 'this' is also an object descriptor. 

To get this all straight: 'target' will return the name or ID of the 
entry point for system message; 'me' returns the same for the ob¬ 
ject which holds the current handler; 'this' returns the current 
card, background or stack (not field or button - and you must 
specify). 

After you've played around with these changes for a while, try 
this - but only if you have the new Version 1.2. Firstly, create a 
new card field and give it the name Display; then at card level 
write - 

on mouseUp 

put the target into me 

put me into card field Display 
end mouseUp 
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This handler illustrates the newly extended operation of 'me'. 
Previously 'me' was just a convenient synonym for the current ob¬ 
ject, but now it is a 'container' as well. In HyperCard jargon, the 
term 'container' means 'variable' in its widest sense. 

You might think this distinction is a bit esoteric, but HyperCard 
fields are also both containers and objects. The term object refers 
to the status in the message hierarchy, while container indicates 
that data (text) can be added to the fields, and that the fields will 
hold and regurgitate this data when required. A field is just like a 
big variable that is visible on the screen. Handler lines like - 


put the name of this card into card field Display 


are virtually the same as - 


put the name of this card into myCard 


In the first case the card filed 'Display' must be created first be¬ 
fore the handler is activated. It doesn't need a name because an 
ID number is automatically generated. In the second case, the 
new variable 'myCard' is automatically created to hold the infor¬ 
mation. 

You assign value to a field by typing into it, and you assign 
value to a variable with a script line that begins with the 'put' 
command. You don't need to establish local variable names be¬ 
fore you use them; but note the qualification 'local'. 

HyperCard has both local and global variables. The distinction 
is between those which are only valid during the execution of the 
current handler, and those which carry the value throughout the 
program. Note that a local variable is valid only within the handler 
- it doesn't extend to other handlers in the same script - 


on mouseEnter 

put the target into myVar 
end mouseEnter 

on mouseWithin 
put myVar 
end mouseWithin 


will not give you a message box revealing the name of the target - 
it will simply print the word 'myVar' inside the message box every 
time. The middle line of the second handler needs to be the third 
line of the first handler (and the second handler deleted) for the 
system to work, since myVar hasn't been defined. Therefore, by 
default, it is a local variable. You could also make the above script 
work by adding a second line to both handlers - 


global myVar 


which is the way you define global variables, before the 'put' 
statements. You must create the global definition both in a han¬ 
dler before adding a value, and also before using that value in an¬ 
other handler - which will seem a bit odd to most programmers. 

You can declare more than one global variable in the same line, 
with the names separated by commas, if you wish - 


global chapters, sections, pages 


defines three different global variables into values can then be 
put. 

If you change the value of a global variable anywhere, you 
change it everywhere - but the changes aren't saved to disk be¬ 
tween sessions or when you swap out of a stack. 

A good example of a built-in local variable is one named 'it' 


which is used by default if no other variable name is declared. So 
if you write the line - 


get the ID of target 


the target ID will be written into a variable called 'it'. You haven't 
had to define it - or (in this case only), even use the variable 
name, but the next line - 


put it 

will result in the target ID being revealed in the message box. 

Scripts 

he use of all these common English words and defaults makes 
HyperTalk appear to be deceptively simple to write, but in 
some ways it also complicates the reading of scripts. It is hard to 
get use to the idea that 'it' and 'this' are active parts of the lan¬ 
guage, not just loose connective words. 

It takes some familiarity with the program to remember that 
'put it' means 'place the contents of a variable (which has prob¬ 
ably not even been named, let alone defined) into the contents of 
a message box (that isn't mentioned) and display this on the 
screen (which* is assumed).' One rather difficult distinction the 
tyro programmer in Basic or any of the other popular program¬ 
ming languages needs to make is that between numbers as literal 
strings, and numbers as numerals. 

When we write 2000 into a variable meant to contain the num¬ 
ber of widgets on a warehouse shelf then it makes sense to treat 
2000 as a numeric value. When the 2000 represents a postcode, it 
means nothing more than 'Sydney', and should be treated as a 
literal string. 

lust when you think that you are getting the distinction clear, 
someone points out words like 'second' and 'ninth'. Are these 
terms more aligned with literals or with numbers? 

Bill Atkinson, who wrote HyperCard, has dealt with this prob¬ 
lem in a novel way. He treats every word or number as a literal - 
until the program attempts to undertake some computation. At 
this stage, HyperCard 'interprets' the string as a number and uses 
it in the calculation - returning the result to literal form again. 

The point here is that you don't need to bother about making 
the distinction, since everything is a literal. Also, the interpreter 
can handle the word 'nine' in exactly the same way as the number 
'9' - or in fact, as the word 'ninth'. Up to 'ten' the program 
doesn't care. This is another of the reasons why HyperCard ap¬ 
pears to use a very English-like language. 

However there are limitations. A number can include only one 
period (.) representing the decimal point, and no other punctua¬ 
tion or spaces apart from a plus ( + ) or minus (-) sign at the front. 

With calculations, you can have precision up to 19 decimal 
places, but this is unnecessary for most common uses. So you can 
set the precision you require by using the 'numberFormat' com¬ 
mand - 


set numberFormat to 0.00 


This example would result in a string with at least one digit to the 
left of the period, and two to the right. If you don't want unneces¬ 
sary zeros in the decimal places you can request - 


set numberFormat to 0.#### 


and the trailing digits will only be added when they are non-zero, 
to a maximum of four. 
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HyperCard - potential and promise 


Jeff Richardson, AMSEC consultant and 
computer education lecturer at the 
Gippsland Institute of Advanced 
Education, believes that HyperCard is 
the most significant innovation in 
personal computing since the release of 
the Macintosh itself. 


Y OU WILL probably have noticed that most articles about 
HyperCard deal with the question 'What is HyperCard?' 
'What is so extraordinary about that?', I hear you ask. Well the 
very need to explain just what HyperCard is indicates that we 
have before us something very different 
We all share assumptions about what a computer is and the 
functioning of the the components that make up different sys¬ 
tem configurations. We share a notion of a 'word processor', a 
'spreadsheet', a 'database' and other application and utility 
software; and we share a notion of a 'programming language' 
and an 'operating system.' We know, or at least think we know, 
what these things are. and when an innovation is made in any 
particular area there is no need to explain the basics of that 
area in itself. Not so with HyperCard. Sure, its a piece of soft¬ 
ware - but what is it? 

Most of what I've read about HyperCard since its launch last 
August has attempted to answer this question. If you've been 
fortunate enough to use HyperCard yourself you'll probably 
understand why reviewers feel the need to stress so urgently 
that HyperCard is so much more than just a showy electronic 
filecard system. 

I was initially very sceptical of HyperCard but after using it I 
became a total convert. I'm writing from the perspective of a 
HyperCard devotee, so be warned. HyperCard is the most sig¬ 
nificant innovation in personal computing since the release of 
the Macintosh itself. 

HyperCard is a total computer environment: it's a modern 
and powerful programming language; it's a multipurpose ap¬ 
plication, able to manipulate and integrate text, graphics, data 
and complex calculation; it has a range of user entry levels that 
span from computer novice to application's programmer; it 
has the power to usurp the front end of the operating system, 
allowing the user to open any other application or utility from 
within their own customised HyperCard startup environment; 
and it can import other programs and run them, or use parts of 
them. It's simple enough for users to create their own applica¬ 
tions without writing any program code at all. It can interface 
with the outside world through robotic control, digital sam¬ 
pling of sound and vision, through sound synthesis, and 
through video disk. It comes with a range of ready to use appli¬ 
cations, but it is also open-ended, extensible and user defina¬ 
ble. HyperCard empowers and emancipates the user in rela¬ 
tion to software in the same way that the Macintosh does in 
relation to hardware. 

At the heart of all this power is HyperCard's builtin pro¬ 
gramming language. HyperTalk Like HyperCard itself, Hyper¬ 
Talk is not like other programming languages-and then again 
it is. But the languages it is descended from are not like the 


languages that are commonly used for program development 
Programming in HyperTalk/HyperCard is a little bit like pro¬ 
gramming within a spreadsheet, attaching formulae to cells 
and sending output to other cells, but it is a lot more like pro¬ 
gramming in Logo and in Smalltalk. 

Both these languages have been around for some time but 
have not been used by serious programmers who have recog¬ 
nised their revolutionary nature, because both languages have 
been held back by hardware which lacked the speed and 
memory to keep pace with their brilliance. HyperTalk is very 
much like Boxer, which is currently under development at the 
Massachusetts Institute of Technology - Boxer is a WYSIWYG 
system in a total sense; the entire system is visually repre¬ 
sented and manipulable in a way that is similar to the Macin¬ 
tosh desktop, and the entire system, program, data, text, the 
lot, is always visible and available and alterable on the screen. 
Within Boxer, there is no distinction between an editor or any 
other part of the system. HyperCard/HyperTalk operates in the 
same spirit. 

In HyperTalk it is messages, rather than commands which 
are the basis of getting things done. This is a subtle but pro¬ 
found difference from the imperative, sequential and proce¬ 
dural way in which most common computer languages are ex¬ 
pressed. Messages are passed between objects and may use 
functions. User-defined objects and functions can be used in 
addition to those that are built in to HyperTalk. The language 
has a lexicon of primitives to meet the needs of the user. But it 
is very powerful and forgiving; it has a very high tolerance for 
natural language syntax and for the syntax of lower level com¬ 
puter languages. It is quite possible to write HyperTalk code in 
a pidgin of pseudo-code, debugging as you go, or as happens 
surprisingly often, HyperTalk gets your drift and is able to do 
what you want anyway. This style of programming is close to 
the ideal of 'descriptive programming', the most well known 
embodiment being the language Prolog, where the emphasis 
is on describing what is to be done rather than devising an al¬ 
gorithm to do it. 

Modules of HyperTalk code, or scripts as they are called, are 
attached to objects. Objects are arranged in a hierarchy and 
this hierarchy determines how messages will be handled 
Scripts are capable of altering other scripts and of altering 
themselves. There is no real distinction between programs and 
data. If all of this sounds confusing, I'm not surprised. Hyper¬ 
Card really does stretch and change the notion of just what 
programming is - try it and see for yourself! 

Of the objects available in HyperCard, the button is the 
most immediate and dynamic. It responds to a click of the 
mouse, and this really lets you start pushing the computer, 
around. You get the feeling that it will never kick sand in your 
face again. Yet for all this there are shortfalls. Other users will 
find their own gripes, but for me there are two types of object 
that are glaringly missing. They are sprites, the basis of any 
animation, and demons, the parallel processing tool for ordi¬ 
nary folk, lying silently in wait for a specified event. Both have 
been available in versions of Logo for well over five years now, 
and running on very dinky little machines. 

Still, the whole HyperCard environment feels very Logo like. 
Certainly its the first Mac program that has made me seriously 
consider the machine as a realistic option for schoolchildren 
And for me, HyperCard is the best realisation so far of the 
potential and promise I felt when I first sat down in front of a 
Macintosh □ 
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Range is established by the word 'to' - 

repeat with increment - 1 to 19 

Along with these literals and numbers you will need to use opera¬ 
tors such as equalTo ( = ), greaterThan (>), lessThan (<), and so 
on, to write command lines like this one - 

if usersAge > 45 and usersAge < 60 put "Middle Aged" into card 
field "ageClaes" 

As in most languages, parentheses are used for groupings, with 
the innermost expression being evaluated first. There are the nor¬ 
mal + and / arithmetical operators, and also the logical 
operators =, >, <, and and, or, and not, as well as a few other 
more obscure ones. You can use either the words Ms not' or the 
symbols ^ to mean 'not equal to', and the words 'contains', Ms 
in' and Ms not in' are all evaluated to be either true or false. 

The words 'true' and 'false' are both constants recognised by 
the program along with 'up', 'down', 'left', 'right', 'space' (for ex¬ 
ample: '"H 'tab', 'return', 'empty' (for example: the null character 
""), 'return', MineFeed', 'formFeed', and 'pi'. 


And, to end this brief four-part look at HyperTalk, a quick tip on 
security. If you want to ensure that no one can modify one of your 
stacks try this handler at the Stack level - 

on openStack 

set userLevel to 1 
end openStack 

This allows the user to Browse only (userLevel 2 allows them to 
type). There are ways around this script through the message box, 
of course, but it's a simple handler which makes access to change 
difficult for the less experienced. 

I was going to conclude this part with three substantial scripts 
that I developed for importing text, spreadsheet and database 
files into HyperCard. But Version 1.2 landed on my desk last week 
and its utilities disk includes ready-made handlers for both im¬ 
porting and exporting files - and ! have to admit that they are bet¬ 
ter than the ones 1 wrote. 

So if you are still staggering along with the early version, take 
your current HyperCard disk down to the nearest Mac dealer and 
demand the upgrade! □ 
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Electronics Toda 


ELECTRONICS * TECHNOLOGY 
I I INNOVATION !-1 


Australia’s number one tech¬ 
nology magazine is on the 
stands right now. ifs articles 
will keep you up-to-date with 

what’s happening in science 

and technology, especially 
written from an Australian 
perspective, it has a great 
section on the latest in 
music, as well as great 

do-it-yourself projects 

to amuse and inform. 


GET ON TOP OF IT ALL, GET ETI! 
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User-defined Functions 

tor structured programming h Bask 


Is your code impossible to 
read? Cluttered? Hard to 
maintain? A hassle to 
move to a different version 
of Basic? — Then you 
need User-Defined 
Functions from Jeff 
Richards ! 


U SER-DEFINED functions are 
one of the few aids to structured 
programming available to the 
Basic programmer. Carefully 
using them can lead to programs that are 
easier to understand and maintain. In 
many cases the program will also be more 
compact and will execute faster. 

The examples presented here are in Mi¬ 
crosoft Basic, and should work for most of 
its implementations. They will also apply 
to other Basics that support user-defined 
functions, with the possible exception of 
using logical expressions as values. 

The definition of a user-defined func¬ 
tion is 

DEF FNname|(parameterO_list)| 

=expression 

and the function is used as if it was an ex¬ 
pression, in the form 

FNname(argumentO_list) 

For example, the definition of a simple 
mathematical function to calculate the 
distance between two points on a plane 
(using cartesian coordinates), is — 

10 DEF FNDIST(X1,YI,X2,Y2) 
=SQR((X2—Xl)-2+(Y2—YI)-2) 

A typical reference, which gives the dis¬ 
tance from the origin to the point (A.B). 


might be — 

100 PRINT FND1ST(0,0,A,B) 

In order to evaluate the function the value 
0 is substituted for X1 and Y1, the value of 
A is substituted for X2 and the value of B 
for Y2. The statement is functionally iden¬ 
tical to — 

100 PRINT SQR((A—0) : 2+(B—0) : 2) 

This demonstrates why the variables 
named in the parameter list are referred to 
as dummy variables. When the function is 
evaluated, these variables are replaced by 
the actual values (constants or variables) 
taken from the argument list. Thus it is im¬ 
portant that the values in the argument 
list match, in type and number, the 
dummy variables specified in the parame¬ 
ter list. It is important to remember that 
any variables in the program that may 
share the same name as variables in the 
parameter list (X1,Y1,X2 and Y2 in this ex¬ 
ample) are not affected by the use of the 
function. ^ 

If a variable in the expression part of the 
function does not appear in the parameter 
list, then the current value of the variable 
is used, or 0 if the variable has not yet 
been assigned a value. It is good program¬ 
ming practice to include all variables re¬ 
quired for a function in the parameter list 
(and some would claim that Basic should 
enforce this rule). A possible exception 
would be 'global' variables such as pi — 
3.14159. 

It should also be noted that functions 
have a 'type’ — integer, single precision, 
double precision or string— in exactly the 
same way that variables do. The type of a 
function is determined by the special 
character appended to the function name, 
the effect of a ‘DEF type* statement, or the 
default type. 

Mathematical functions are a typical 
use for user-defined functions. Microsoft 
Basic requires that the arguments to the 
transcendental functions S!N(), COSO 
and TAN() are in radians. For many 


problems it is convenient if the argument 
is in degrees. This conversion can be im¬ 
plemented in user-defined functions — 
DEF FNS!NE(N) = SlN(N/57.2958) 
Similarly, the unimplemented functions 
SEC(), COSECO and COT(), can be easily 
implemented as user-defined functions 
using the supplied intrinsic functions. 

The are many reasons for using a func¬ 
tion, but the best one is simplicity. Any ex¬ 
pression that is reasonably complex and 
is used repeatedly, is a candidate for a 
function. This will make the code less clut¬ 
tered, easier to read, more maintainable, 
and easier to move to a different version 
of Basic. An example of a function that 
simplifies coding, and also demonstrates 
a function of type string, is 
20 DEF FNINS$(A$,B$.N)= 

LEFT$(A$,N) + B$+RIGHTS 
(A$,LEN(A$)—N) 

This function inserts the string B$ after 
position N in string AS. It might be used in 
the simple expression 
200 C$ = FNINS$rabcdefgh";r,5) 

— which would assign the string “abcde- 
fgh" to C$. The advantages in elimination 
of repetitive code, and the possibility of 
coding errors, should be a obvious. 

Other procedures that are candidates 
for functions are not so obvious. Because 
functions must evaluate an expression to 
return a single result, they cannot be used 
for routines that require an IF statement 
or a FOR-NEXT loop. However, many rou¬ 
tines can be forced into a function format 
by using logical expressions. A logical ex¬ 
pression is a logical relation that is used 
to return a value in Microsoft Basic the 
value is -I for true and 0 for false. Thus 
the expression A=(B=C) would set A to 
-I if B was equal to C. or it would set A to 
0 if B was not equal to C. 

A typical use for this feature is in a func¬ 
tion to find the maximum lor minimum) 
of two values. This would usually be ex¬ 
pressed as IF B>C THEN A=.B ELSE A=C 
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T he are many reasons (or 
using a function, hut the 
best one is simplicity. Any 
expression that is 
reasonably complex and is 
used repeatedly is a 
candidate for a function. 

However, as a single expression it can be 
recast as 

30 DEF FNMAX(A,B} = 

-A*(A>B)—B*(B=>A) 

In this case, if A is greater than B, the ex¬ 
pression becomes-A*(—I )—B*(0}. which 
reduces to A. If A is less than or equal to B 
then it becomes -A*(0)-B*(-l) which re¬ 
duces to B. There are other ways of achiev¬ 
ing the same result, but this is as conven¬ 
ient as any. 

Similar use of logical expressions can 
simplify otherwise tedious tasks. A com¬ 
mon requirement when dealing with 
operator input is to convert lower case 
characters to upper case before testing. A 
function that uses logical expressions can 
do the job simply — 

40 DEF FNUPPFR$(A$) = 

CHR$(ASC(A$) + 32* (ASC(A$)>96 
AND ASC(A$)<123)) 

This can be translated as ‘Take the ASCII 
value'of the character. If it lies between 96 
and 123 then subtract 32. Convert the 
number back to a character and return it 
as the result of the function.' 

Note the use of the intrinsic functions 
ASC() and CHR$() in this example In fact, 
any function, intrinsic or user-defined, can 
be referenced in a user-defined function. 
This makes 'stacking' of functions possible 
as the next example shows. This function 
uses FNUPPERS to convert the first 
character of a string to upper case — 

50 DEF FNCAPS$(A$) 

= FN UPPERS! A$) + RIGHTS 
(A$.LEN(A$J—I) 

String functions are particularly useful 
in user-defined functions Allied with the 
need to convert operator input to upper 
case, is the need to check the input for va¬ 
lidity. A simple function that compared a 
character with a predefined set of alterna¬ 
tives might look like this 
60 DEF FNCHOICElA$] = 

INSTRl "ABCDEF",FNUPPER$|ASl i 


Such a function returns 0 if the character 
was invalid, or a number between I and 6 
representing the characters 'A* to *F in 
upper or lower case. It would be used in a 
typical program with — 

600 INPUT ANS$:IF FNCHOICE(ANS$| = 

0 GOTO 600 

But any intrinsic function can be used 
in a user-defined function, including some 
that may not appear to be simple func¬ 
tions. For instance, INPUT$() is a function. 
It could be used in the above example to 
get the input from the operator This also 
simplifies the use of the function. 

70 DEF FNSELECT= 
INSTR(“ABCDEF'\FNUPPER$ 
(INPUTS! II)) 

700 WHILE NOT FNSELECTrWEND 
In practice, it would be preferable to 
make the function more general and to in¬ 
dicate in the use of the function just what 
was going on — 

70 DEF FNSELECT(A$} = 
INSTR(A$,FNUPPER$(INPUT$( I)}) 

700 WHILE NOT FNSELECT 
(“ABCDEF "}:WEND 

Such a function could also be used di¬ 
rectly to control program flow — 

700 ON FNSELECTrABCDEF ’) 

+1 GOTO 700.800.. 

Other tricks are available to permit 
procedures to be coded into functions 
rather than as subroutines or IF state¬ 
ments. A requirement to return the de¬ 
scription associated with a number, for in¬ 
stance the month of the year, given a date, 
might be tackled with,a string array initial¬ 
ized to the month names and referenced 
on the month number. 

Such a procedure requires that a vari¬ 
able name be set aside for the array, and 
several lines of initialization code will be 
required at the start of the program. Using 
a function to perform the job eliminates 
the use of a special variable, and the ini¬ 
tialization is reduced to the single DFF 


FNname statement, 

The problem is easy if the strings are all 
the same length, but can still be worth¬ 
while even when the strings differ in size 
An example that displays the status of a 
series of points in a network might be 
80 DEF FNSTATE$(N) = 

MID$r ONOFF ?”.N*3—2.3) 

800 FOR 1=1 TO MAXSW;PRINT I, 
FNSTATE$(ST(I}):NEXT 
Note that the strings “ON". “OFF" and 
"?" — have been forced to the same 
length to simplify things. 

There are circumstances when functions 
can be used to implement a brute force' 
programming technique that would be un¬ 
manageable if it had to be repeatedly 
coded in-line, but is much faster than a 
subroutine call. An example is the prob¬ 
lem of counting the number of T bits in a 
character a problem common in error 
checking procedures. A function to do the 
counting is — 

90 DEF FNCOUNT(A) = 

(A AND 64)/64.+ (A AND 32J/32 + 

(A AND I6)/I6+(A AND 8)/8+ 

(A AND 4)/4+(A AND 2)/2+(AAND I) 

This function operates about twice as fast 
as a subroutine and a FOR-NEXT loop. A 
matching function to return the character 
with its high-order bit set, if required, to 
ensure an even number of T bits is 

91 DEF FNPEVEN$(A$)= 
CHR$(ASC(A$)OR &H80* 
(FNCOUNT(ASC(A$))MOD 2|| 

And a final example, given in Listing I, 
demonstrates the value of functions in a 
library oh‘tools' — procedures that per¬ 
form defined tasks and can be included in 
any program merely by copying from a li¬ 
brary of procedures. In this usage the 
complexity of the function is irrelevant. 
What might be considered overly complex 
and opaque coding is acceptable in a tool 
that has been carefully debugged, and 
documented. □ 


99 DEF FNDAY$(D>M>Y)=MID$( 'SunManTueUedTKuFr iSat J > ((D+2* 
(3“(YM00 MOO 4>>+(Y MOD 10C1)\12-KY MOO 100 MOD 12) 
+ (Y MOD 1D0 MOO 12)\4WAL(MID$(' 033684425032 J >M> 1) > 
-10^(M=12)+<(M<3) AMD (Y/4=Y\4> AMD NOT 
(Y/400<>Y\400)))M0D 7)#3-Fl,3) 

Listing I. Tlic /uuduw rr/unis l he day of the week for any dale in the Caegorian mend dr after Sep¬ 
tember I 3, I 752 (udfc/i the calendar was adjusted by four days} If uses wcsl of the tricks described, 
including logical expressions If also uses substrings tefereiurd on a run'ii M’ for both the day name 
and the magic number for the month that note that the magu number 1 2 jot IVo'mfvj mvtL special 
handling} Integer divide \ x\i /) h a briefer way of expressing INTU/in. 
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Byling ProDOS Back - Part 1 

Stewart Fist offers Apple users a basic guide to how ProDOS handles files - with 
special reference to keeping Appleworks files on a hard disk. 


B Y NOW, most Apple users are 
familiar with ProDOS, and despite 
initial reservations, most of us 
have learned to accept it as a bet¬ 
ter operating system than the old DOS 3.3. 

At the time Apple changed over to 
ProDOS, it wasn't overly apparent to many 
people why the swap was necessary. DOS 
3.3 was one of the great "user-friendly'' 
operating systems in the evolutionary 
path of computers, and ProDOS will never 
ignite the same affection in users. ProDOS 
was certainly "bigger, faster and more 
powerful" but it hasthechrome-and-plas- 
tic slickness of a modern Japanese car, as 
opposed to the rugged reliability of a 
faithful old F| Holden. 

But ProDOS is here to stay. We’ve had 
to face the fact that even small-system 
computers like the Apple II are fast mov¬ 
ing into an era of massive mass-storage 
systems. Not just our current magnetic 
hard disk systems (though the newly de¬ 
veloped R-DAT recording techniques 
seem to indicate that magnetic tech¬ 


nology is still hot in the running), but also 
CD-ROM and the exotic optical storage 
systems of the future. 

ProDOS can handle up to 32 megabytes 
in one volume and 16 megabytes in any 
one file, so it'll do most Apple users for 
the time being. 

When computer users face the pros¬ 
pects of having hundreds, or thousands of 
files on a single mass-storage device, they 
run up against the limitations of the 
human brain. A computer can flick 
through a thousand-entry catalog in a 
fraction of a second, but a human can’t. So 
the cataloging system must be designed 
in a branched 'hierarchical' structure if we 
are ever going to find anything on a large 
disk. 

ProDOS's directory structure therefore 
makes sense for anything with more ca¬ 
pacity than the standard floppy drives — 
although it must be admitted that the use 
of multi-level pathnames is annoying for 
single-sided floppy disk users, on occa¬ 
sions. And when you're trying to find, re¬ 


pair or recover information on a disk, a 
branched directory structure adds to the 
complexity. 

Saving Space with Blocks 

When a ProDOS disk is first formatted, 
only one 'block' of disk space is reserved 
for the main 'volume' directory. This vol¬ 
ume directory can carry a maximum of 51 
file entries, but each of these entries can 
itself be a subdirectory occupying another 
block of disk space — and that block can 
be anywhere at all on the disk. 

This means that the operating system 
doesn't need to allocate a large number of 
disk blocks for directory use initially it 
does this progressively when needed. The 
volume directory and the subdirectories 
are simply treated by ProDOS as different 
forms of a normal file, so you don't get 
space allocated for, but not used by, sub¬ 
directories. 

What ProDOS gives, ProDOS also takes 
away. While the directory allocation sys¬ 
tem saves wasted disk space on floppies, 
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where subdirectories aren't usually need- 
ed, ProDOS often does waste disk space 
through the use of ‘blocks’ rather than 
'sectors' as the primary disk division (see 
the Track/Sector to Block Conversion 
Table for the conversion calculations). 

By definition, there are two disk sectors 
to each block, so sectors are always allo¬ 
cated in pairs. Normally, this would mean 
a textfile with only a couple of words 
would still take up two sectors of disk 
space (one block), in addition to the direc¬ 
tory and formatting information. 

To avoid this ‘space waste', ProDOS 
treats these short files in a different way to 
the longer ones. For instance, Appleworks 
files with under 200 characters (about 30 
words) are registered with the operating 
system as 'seedling' files and treated quite 
differently to the longer 'sapling' files. 
(Non-Appleworks 'seedling 1 files can be 
up to 256 characters in length — which 
still isn't much.) 

ProDOS manuals and articles talk a lot 
about 'seedling', 'sapling' and 'tree' files, 
without ever getting down to the nitty- 
gritty of what these terms mean in a 
practical sense. To understand this you've 
got to look at the way ProDOS stores in¬ 
formation on the disk itself. 


Inspect Your Disk 

So if you want to understand ProDOS you 
should first invest in a good disk-inspec¬ 
tion program. Pro-Byter, from Beagle 
Brothers (at US$39.95), is probably the 
best value for money at the present time. 
Send a Visa card or Mastercard number to 
Beagle Brothers, at 3990 Old Town Ave¬ 
nue, San Diego CA 92110, and ask for it to 
be sent airmail — or you'll be waiting 
three months. 

If you've got either the old DOS 3.3 ver¬ 
sion of 'Apple Mechanic' or the 'Tricky 
Dick' disk-zapping program, you can use 
them to look at a ProDOS floppy, but ini¬ 
tially you'll find the sector allocation quite 
confusing. This is complicated by the fact 
that two sectors are equal to one block 
(usually designated Part A and Part B), 
and these sectors aren't always alongside 
each other, as can be seen in the Conver¬ 
sion Table. 

Looking at the ProDOS disk itself, the 
main (volume) directory now starts at 
Block $02 Part A (all block numbers are in 
hex), which in the old terminology would 
be Track $00 Sector $0B. If your disk holds 
more than five files, the second part of 
this directory (Part B) would be found at 
Track $00 Sector $0A. 


Another part of the disk which you 
should identify is Block $06 (Track $00, 
Sector $03/$02), which is reserved for the 
bit-map. This bit-map is checked by 
ProDOS whenever it is writing to a disk to 
see which blocks are free for use; it works 
like a large sheet of graph paper on which 
the computer notes whenever a block is 
used. We'll go into how this works later in 
the series. 

Operation Rescue 

ProDOS has a simple system of allocating 
disk space. It uses the lowest block num¬ 
ber available and then moves to the next 
block. This makes it fairly easy to track a 
file through a disk if you've accidentally 
deleted it; you always start from the low¬ 
est block number and then move progres¬ 
sively up. You might not find that every 
free block you come across contains some 
of your files (some might have been used 
before for another file), but you can be 
quite sure that your file will be in numeric 
sequence. 

If you've both deleted and overwritten a 
long textfile with a much shorter one, the 
chances are that a significant part of the 
text will still be recoverable. The overwrite 
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would have occurred firstly in those lower 
block numbers that contained the index 
pointers (before the text starts), so you 
might only have lost the first few hundred 
characters. 

In fact if the overwrite file was less than 
200 characters (a 'seedling' file) in length, 
you probably won't have lost any of the 
text at all and full recovery will be possi¬ 
ble, if not easy. This will become more un¬ 
derstandable when we look at the differ¬ 
ent formats taken on by files on the disk, 
in subsequent articles. 

The Volume Directory Block 

For starters, let's look at the volume direc¬ 
tory block and try to make sense out of the 
jumble. The format you see in Figure 1 is 
that produced by Pro-Byter; it has some of 
the bytes translated to hex figures, and 
others to ASCII characters. Other disk-in¬ 
spection programs might look quite differ¬ 
ent on the screen, but the information 
contained will be the same - and in the 
same sequence, since this is the order in 
which the directory bytes have been read 
off the disk. 

At the top of the screen shown in Figure 
1 is a single line containing two sets of 


Figure I. The volume directory block as seen by Pro-Byter. A is the location of 
the previous block: B is the location of the following block ; C is the volume 
name; and D is the filename length. 

a—: o§ ; ba o ; o 

0 0 00 0 O 0 0 O 0 0 O O O 0 0 
27CD 0300 0600 .1801 

19 0800 1E00 573800 
7E70 FCAC-0000 0200 


B J-9 BEM0,Di'3S!r *. i s s t 
00 00 C'. r ‘ 

D- 2C ADDRESS.FILEEMP 
FCAC“0000 00 00 E3 


18 SEEDLINGKB.TEMP 1A 1600 0100 4B0100 
FCAC-0000 00 00 E3 0000 FCAD-0000 0200 


00 YC.PRODOSS.TEMF 
FCAD-0000 00 00 E3 

?9 YCi, PRODOSS. TEMP 
FC AC-0000 00 00 EG 


1A 1.800 1000 EG 1 COO 
20O0 FCAC.000O 0200 

1A 3700 1000 CC1D00 
2000 F C A C -0000 0200 


00 :s :s:s: s : ;s : s 2 s 00 0000 0000 000000 
0000-0000 00 00 00 0000 0000-0000 0000 


OC) 


00 


00 


BYTE VALUE A BLOCK PART 6 

44(*2C) 65(T41) A 2(*02) A 2 



dual hex pairs. The first dual pair (A) tells 
you where to find the directory's previous 
block ($0000 since there isn't a previous 
block), while the second (B) tells you 
where to look for the following block. 

This main volume directory is always at 
Block $02, so Block $0003 has been re¬ 
served for future use. Remember you al¬ 
ways need to read dual hex pairs 'back¬ 
wards' the least significant pair ($03) 
comes first, and the most significant ($00) 
comes last. 

The first entry in the directory file is the 
volume name (C), which in this case is 
DEMO.DISK. We know it is a volume name 
from the hex number that precedes it (F9). 

if you look at Figure 2, you will see that 
the first part of this hex pair indicates the 
type of file storage on the disk — in this 
case, it's a Type 'F' file storage which indi¬ 
cates a volume directory. ADDRESS.F1LE 
below is a storage type '2', which indicates 
a sapling file of over 256 bytes but less 
than I28,000(or 257 blocks). Most of your 
word processing files will be of this type. 

The file named SEEDLING is, as can be 
assumed from the name, a storage type 
T Its full contents is the sentence 1 am a 
seedling file." 
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Figure 2. File storage types. 


The first of the files named YC.PRODOS 
shows a storage type 'O'. This indicates it 
has become inactive because it's been re¬ 
saved (directly below in the directory). 

Whenever ProDOS re-saves a file al¬ 
ready on disk, it first creates a completely 
new copy, and then deletes the reference 
to the old file. It does not save the new file 
into the same block as was previously 
used. 

Most operating systems work this way, 
but it is often not recognised that if a mis¬ 
take is made, and you accidentally save 
some incorrect data under an old file¬ 
name, the original data can still be re¬ 
covered intact, by using Pro-Byter to make 
some subtle changes to a few bytes on the 
disk. It’s not just a simple matter of chang¬ 


ing the storage type $00 to $29, but we'll 
get to this later. 

The second byte (D in Figure I) in the 
hex pair preceding the filename is simply 
a measure of the filename length. DEMO.- 
D1SK measures 9 characters in length, 
whiie ADDRESS.F1LE is 12 (in hex $C). On 
the end of these filenames can be seen 
the residual of the name APPLEWORKS- 
TEMP added to the directory by the oper¬ 
ating system as a preliminary to saving 
the file. ProDOS doesn’t wipe out the old 
filenames, it just overlays them and 
records how many characters are in use 
with this second byte of the hex pair. 

Next month we'll look at the other types 
of information contained in the ProDOS 
directory, and find out how to change 
them. □ 


hex Numbers 


a) Each digit in a hex pair (from 0 to 9, 
then A to F) represents a decimal number 
from 0 to 15. 


b) A hex pair can therefore represent any 
decimal number from 0 ($00) to 255 
($FF). 


c) Dual hex pairs can represent any deci¬ 
mal number from 0 ($0000) to 65,535 
($FFFF). 


d) From a disk or memory, dual pairs are 
read 'backwards’. The least significant 
number comes first — so $04 followed by 
$01, translates to $0104, which is decimal 
260. 


e) Remember when you are counting 
with hex numbers that zero comes first. If 
a pointer is indicating $01, it is pointing 
at the second byte in the series, not the 
first. 
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Byfing ProDOS Back - Part 2 

How can a seedling take up a whole block? 


EFORE we move on, let's review 
the main points in Part 1 
ProDOS allocates disk space in 
blocks rather than sectors (there 
are two blocks per sector). Free space is 
allocated in a strict sequence from the 
lower block number to the higher and, for 
this reason, ProDOS itself will always oc¬ 
cupy the lowest blocks on a standard 
floppy. Block six is the bit-map, recording 
which blocks on the disk are in use and 
the primary directory is at block two, with 
subdirectories allocated as needed and 
treated as normal files. 

Files are treated in three different ways, 
according to length. If the files are less 
than 512 characters long (212 for Apple- 
works files) they are called seedling' files 
and are stored in only one block. If they 
are medium length (up to 128 Kbytes) 
they are called saplings', and are stored in 


from three to 256 blocks. Larger files are 
called ’trees'. 

When you re-save a file (supposedly 
writing over one already on the disk), 
ProDOS firstly writes the whole new file 
into spare space, and then changes the 
file header and the bit map to indicate the 
superseded file is no longer in use. 

The bytes preceding the volume (disk) 
name in the directory block (see Figure P) 
indicate: A the hex number of the previous 
block — $0000 in this case; and B the 
block number of space allocated for main 
directory extension $0003 (read the 
bytes in reverse order, remember!) 

The byte preceding each file name uses 
two half bytes to give us C the storage 
type, and D the length of the file name. 
These two half bytes are changed to zero 
when a file is inactive. 


Deeper into the Directory Block 

The bytes following the file name in the 
directory provide a lot of information 
about how and where data is stored on 
the disk. Fortunately, Pro-Byter — which 
printed out the directory in Figure 1 
groups these bytes together to make them 
more comprehensible. 

You'll see in Figure I, directly to the 
right of the file name E a single byte F 
which tells us the file type. ProDOS has 
made provision for a large number of file 
types; you can see the major ones in Fig¬ 
ure 2. 

File type $19 (the file type of ADDRESS.- 
FILE) is an Appleworks database program, 
while the SEEDLING file below is from the 
word-processing section of Appleworks. 
Apple has made provision for a whole 
range of file types, from Pascal to Binary 
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PRODOS 


File Type 

Preferred Use 

$00 

Typeless file 

$01 

Bad block file 

$04 

ASCII text file (SOS and ProDOs) 

$06 

General binary ile 

$08 

Graphics screen file 

$0F 

Directory file (sos and ProDOs) 

$19 

Appleworks Data Base file 

$1A 

Appleworks Word Proc. file 

$ 1B 

Appleworks spreadsheet file 

$EF 

Pascal area 

$F0 

ProDOS Cl added command file 

$F1-$F8 

ProDOs user defined files 1-8 

$F9 

ProDOS reserved 

$FA 

Integer BASIC program file 

$FB 

Integer BASIC variable file 

$FC 

Applesoft program file 

$FD 

Applesoft variables file 

$FE 

Relocatable code file (edasm) 

$FF 

ProDOS system file 


and Integer BASIC, and there are even 
some types reserved for user definition. 

The double byte following this — G — 
points to the file's first block. From this it 
can be seen ADDRESS.FILE starts at block 
$0008 (reverse the byte order) on the disk. 

BOFs and EOFs 

This first-block pointer remains in the di¬ 
rectory listing even though the file header 
shows the file is inactive. You will see this 
with the first of the YC.PRODOS directory 
entries below; it points to block $0018 
(note the YC.PRODOS is an Appleworks 
word-processing-type file, not a system 
file). 

This means you can find the first block 
(which contains a directory of the other 
blocks) of a file that has been deleted — 
whether it has been deleted through 
deliberate action, or by re-saving the file 
to disk, as in this example. 

The size of the file in terms of the num¬ 
ber of blocks allocated for its use is shown 
at H. The ADDRESS.FILE takes up $00IE 
blocks (that's 30 blocks in decimal), while 
the seedling file below only takes up one 
block. If the word-processing document 


Figure 2. File types under ProDOS. 
renamed SEEDLING was to be expanded 
and re-saved to disk, the number of blocks 
consumed would immediately jump to at 
least three, since the file would then be¬ 
come a 'Sapling'. The new file header 
would change from $18 to $28, to indicate 


this change in status. 

The next group of three bytes I gives us 
information about the actual length of the 
file (as distinct from the number of blocks 
allocated to it, which includes index 
blocks in larger files). This information is 
useful for finding the end of the file. 

This next bit is a little complex, but very 
important, so read carefully. Reading the 
hex bytes from the right and using the AD¬ 
DRESS.FILE example again, this group of 
three bytes tells us the file is $0038 sec¬ 
tors (note, 'sectors' or half blocks — not 
blocks) long, plus $57 bytes. Counting 
starts from the first sector with formatting 
information. This gets a bit confusing be¬ 
cause it doesn't always relate directly to 
the number of blocks allocated. Remem¬ 
ber when you are using hex numbers you 
must always count from zero. Thus, $00 is 
the first number in the sequence. 

For instance, a seedling file can only oc¬ 
cupy one block, and so Appleworks uses 
the first half block (Part A) for format in¬ 
formation (tab settings, line-break infor¬ 
mation and so on) and the second half 
block (Part B) to actually store the text. 
The larger sapling or tree files reserve 
blocks for indexes as well. 

The seedling file named SEEDLING 
therefore shows the end-of-file (EOF) 
marker is set at sector $0001 (that is, the 
second sector), and will be found at the 
$4Bth (75th) byte. Figure 3 shows the Pro- 
Byter printout of the block that makes up 
this seedling file. Pro-Byter gives us an 
ASCII translation in the left-hand column, 
and the actual bytes in groups of four, in 
the three columns on the right. 


Figure I. The volume directory block as seen by Pro-Byter. A is the hex number of the previous 
block; B is the block number of space allocated for the main directory extension ; C sfiou's the file type : 
D indicates the length of the file name; E is the file name ; F tells the file type ; G points to the file's first 
block; H is the space allocated to the file; and I is the actual lenght of the file. 

a—M sii: 

B 


0000/7-^000 OO 00 C3 27OD 0300 0600 1801 



2C ADDRESS.F 
PC AC- 0 00 0 0( 


ILEENP 19 0800 1E00 573800 
> 00 i 7E70 PC AC ■-CO 00 0200 


18 SEEDL.TMGKS- TEMP 1.A 1600 0100 4B0100 
FCAC-OOOO 00 00 L r . 0000 PC AC.0000 0200 


00 YC * PRODOSS ■ TEMP 1A 1.800 1000 E01C00 
FCAC-OOOO 00 00 F '■ 2000 PC AC.0000 0200 


vr.PRODOSS.TEMP JA *700 1000 CC1D00 
FCAC-OOOO 00 00 EFT 2000 PCAC-0000 0200 


00 ;; r r, s ! 00 0000 0000 000000 

> o o o.O 0 0 0 0 0 00 00 0000 0O00--0000 0000 


BYTE 
44 <#2C> 


VALUE 
65($41) 


00 00 

A BLOCK PART 
A 2(#02) A 
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PRODOS 


Part A - Formatting Information. 


0": :Q~— 

— 1- 30220000 

4F3D3D3D 

3D3D7C3D 


3D3D3D7C 

3D3D3D3D 

7C3D3D3D 

-1 —— 1« 

™l 3D7C3D3D 

3D3D7C3D 

3D3D3D7C 


-1—■ 3D3D3D3D 

7C3D3D3D 

3D7C3D3D 

— f —- 1 - 

—3D3D7C3D 

3D3D3D7C 

3D3D3D3D 

8 

8 

1 

8 

— 1- 7C3D3D3D 

3D7C3D3D 

3D3D7C3D 


I-— 3D3D3D7C 

3D3D3D3D 

7C3D3D3D 

‘ • / * * * ■ 

: |: 00002C22 

0300000A 

OOOOOOOO 


OOOOOOOO 

OOOOOOOO 

oooooooo 


: : : OOOOOOOO 

oooooooo 

oooooooo 


::: OOOOOOOO 

OOOOOOOO 

oooooooo 


::: OOOOOOOO 

oooooooo 

oooooooo 


::: OOOOOOOO 

OOOOOOOO 

oooooooo 


::: OOOOOOOO 

oooooooo 

oooooooo 


::: oooooooo 

oooooooo 

oooooooo 


::: OOOOOOOO 

oooooooo 

oooooooo 


: : : OOOOOOOO 

oooooooo 

oooooooo 


::: OOOOOOOO 

OOOOOOOO 

oooooooo 


: : : OOOOOOOO 

oooooooo 

oooooooo 


::: OOOOOOOO 

oooooooo 

oooooooo 


: : : OOOOOOOO 

OOOOOOOO 

oooooooo 


OOOOOOOO 

TRACE:SEEDLING 

BYTE 

VALUE 

BLOCK 1 

OF 1 

03(553) 

61(53D) 

22(916) 

A 2 


Part B - Text, 


::::::::::: W 

This Is a se 
edling file 
P 


00000000 
00000000 
00000000 
00000000 
54686973 
6S646C69 
D0FFFF00 
00000000 
00000000 
00000000 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

BYTE VALUE C0 

263(5107) 0(960) 0 


OOOOOOOO oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 

00000000 19000097 
20697320 61207365 
6E672066 696C6500 

oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
00000006 oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
TRACE:SEEDLING 
BLOCK 1 OF 1 
22(516) B 2 


Figure 3. Printout of SEEDLING file. 


The bottom lines of the screen provide 
information on the file name, the cursor 
byte and block numbers, and whether this 
is Part A or B. The value category provides 
a translation of the byte under the cursor. 

You can see in Figure 3, Part A is re¬ 
served for the formatting information. The 
ASCII translation shows a series of 
']= = = = ' characters which are actually 
the default TAB settings. 

I haven't been able to work out fully 
what all these format bytes represent, and 


the Apple documentation I have is obvi¬ 
ously incomplete. It appears some of the 
bytes just contain random numbers with 
no meaning, so I’d be interested to hear 
from anyone with more information. 

Figure 4 shows what the bytes in Figure 
3 represent, reading down from the top of 
Part A (remember, this is an Appleworks 
word-processing file we're talking about). 


Figure 4. Explanation of SEEDLING file listing. 

At the bottom of Figure 4, we have 
started to describe the first couple of lines 
of Part B, with the file proper starting from 
the 300th character (although Appleworks 
calculates everything itself from the first 
character of the formatting bytes). 

So although the example named SEED¬ 
LING only contains the words 'I am a 
seedling file" it still occupies the best part 
of the whole block. The three-byte file- 
length group I in the directory tells us the 
end of the file will be on the second sector 
($0001), and counting from the first byte 
on this sector, we will find the first unused 
byte at position $4B, which is the 75th 
byte (count the leading zero). 

Okay, time for some maths: 

I sector = 256 characters + 75 * 331 
then subtract 300. This suggests the text- 
file length is 31 characters, when in fact it 
is only the words "This is a seedling file" 
— 23 characters. Where do the other eight 
bytes come from? 

Two bytes come from the $FFFF end-of- 
file marker (EOF), and there are two bytes 
($001 DO) which mark the last carriage re¬ 
turn. Up front, there is an extra double 
byte followed by two single bytes in se¬ 
quence — $0019 $00 $97 ($19000097) in 
the example. But before we look at these, 
let's clear up the problem of the end-of- 
file marker. 

In Figure 3 you can see the ASCII trans¬ 
lation has added a 'P' to the end. The 'P' is 
a high-byte translation of $D0, which is 
the carriage-return byte. In this case, it 


precedes the $FFs at the end of the file, 
but you'll often find them scattered 
through the text. 

Immediately before this $D0 (carriage 
return) at the end of the file, is a byte $00, 
which is used to indicate the horizontal 
screen position of the carriage return. It 
can obviously be any number below $50 
(80) for the normal 80-column screen. 


Formatting Commands 

Any byte higher than $D0 (that is, from 
$DI to $FF) is a formatting command. If 
the SEEDLING file were longer you would 
see some of these scattered through the 
text bytes, but since this file is only one 
sentence long, it doesn't need any. In the 
next part of this series I'll give you the 
main formatting translations for Apple- 
works word-processing files. 

Now, let's return to the front-of-file se¬ 
quence $0019 $00 $97 ($19000097). The 
first pair of bytes tells us the number of 
bytes that follow this hex word. Across an 
80-column screen, this will be less than 
decimal 80 (hex $50), so the second byte 
is actually superfluous. It's there for future 
expansion, and you can use it as an indi¬ 
cator of a text line. 

The third byte (also $00 in the example), 
gives the screen position of the first 
character; in this case it's right up against 
the margin. The fourth byte ($97) is used 
as a 'flag' plus a measure. If you translate 
this byte to binary (III) 1001) you will 
find the first binary digit is used as a Boo¬ 
lean indicator to tell you whether there is 
a carriage return at the end of the line. A I 
indicates yes and a 0 no. with the remain¬ 
ing 7 bits indicating how many bytes of 
text follow this byte. 

Appleworks stores a lot of formatting 
information within the text storage area it¬ 
self using the above two pairs of bytes as 
'bookends'. This will become more appar¬ 
ent when we deal with larger word-pro¬ 
cessing and database files later in the 
series. □ 


Byte 


Description 

0 

3 

Not used 

4 


Always $4F for some reason! 

5 

84 

Tab stops 

B5 


The zoom switch (boolean) 

86 - 

89 

Not used 

90 


Are page-breafc lines showing (boolean)? 

91 


The minimum left margin (figured in tenths of 
an inch) 

92 - 

249 

Reserved for later mail-merge facility 

250 - 

299 

Left available for anyone to use. 
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Bylina ProDOS Back - Pari 3 


I N PART 2, we jumped a bit ahead of 
ourselves by looking at the formatting 
commands in Appleworks. We 
haven't yet finished dealing with the 
way the ProDOS system allocates and 
controls its disk space. 

Remember the primary directory is at 
Block 2, and ProDOS supposedly allocates 
available space strictly in order from the 
lower free to the higher block numbers. 
One block equals two of the old disk sec¬ 
tors. 

Figure I is again the main Directory 
block as it appears on Pro-Byter. And to 
give you an overview of what*s on my ex¬ 
ample disk we have Figure 2. which is the 
disk map produced by Pro-Byter. 


Ignore the Track column on the left — 
we are interested only in the blocks. Pro- 
byter uses asign to signify that a block 
is in use. and a 7 to show that it is either 
empty or available for use. 

You can see from this map that the first 
23 blocks are in use, then 16 blocks are 
free, followed by a further 31 blocks in use. 
If ProDOS strictly allocates space in order, 
from the lowest to the highest block num¬ 
bers, why is there gap of 16 blocks in the 
middle? 

A glance at the directory block gives you 
the answer. YC.PRODOS (which is an Ap¬ 
pleworks W/P file) has been changed and 
saved again, so the space previously occu¬ 
pied by it. is now vacant. 


There have been a number of other 
changes that aren't apparent, but which 
make interpretation of the map rather 
confusing. For instance, the directory (Fig¬ 
ure 1) shows that the Appleworks data¬ 
base file ADDRESS.FILE begins at Block 
$0800 (decimal 8) and is $1E (31) blocks 
long. 

There's a curiosity here that I don't un¬ 
derstand — but here are the facts as they 
relate to Appleworks files, anyway. 
ProDOS takes up the first seven blocks, 
from $00 to $06, with $06 the bit map 
which keeps a running record of which 
disk blocks are used and which are still 
available. 

Now, the first file on the disk starts at 
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PRODOS 




00 00 03 OO 

F9 DEMO.DISKlt tlt t 00 0000 0000 000000 
0000-0000 00 00 C3 270D 0300 0600 1801 

2C ADDRESS.FILEEMP 19 0800 1E00 573800 
FCAC-0000 00 00 E3 7E70 FCAC-0000 0200 


18 SEEDL1NGKS.TEMP 1A 1600 0100 480100 
FCAC-OOOO 00 00 E3 0000 FCAC-0000 0200 


00 YC.PRODOSS.TEMP 1A 1800 1000 E01CO0 
FCAC-OOOO 00 00 E3 2000 FCAC-OOOO 0200 

29 YC.PRODOSS.TEMP 1A 3700 1000 CC1D00 
FCAC-OOOO 00 00 E3 2000 FCAC-OOOO 0200 

00 : i i i : i > : i : i i e e : 00 0000 0000 000000 
0000-0000 00 00 00 OOOO 0000-0000 0000 

OO : i I 11 I I i i i J i i i s 00 00 

BYTE VALUE A BLOCK PART 6 

44<*2C> 65<*41> A 2<*02> A 2 

Figure 1. The main Directory block. Note that 
YC.PRODOS has been changed and saved since 
Figure I in Part 2. 



PRODOS<TM) BLOCK MAP 

TRACK 

01234567 89ABCDEF 

#00-01 

*0000++++++++ ++++++++ 

*02-03 

*0010+++++++. 

*04-05 

*0020.+ +++++++ + 

#06-07 

*0030++++++++ ++++++++ 

*08-09 

#0040++++++. 

*OA-OB 

*0050. 

♦OC-OD 

*0060. 

*OE-OF 

*0070. 

*10-1 1 

*0080. 

*12-13 

*0090. 

*14-15 

*00A0. 

*16-17 

*00B0. 

*18-19 

*00C0. 

#1A-1B 

♦OODO. 

*1C—ID 

*00E0. 

#1E— 1F 

♦OOFO. 

*20-21 

*0100. 

*22 

*0110. 

BLOCKS 

USED < + )i54 / FREE <. ) i 226 

Figure2. The disk map produced by Pro-Byter 

for the example disk. 


$08, but from the disk map we can see that 
$07 is in use. What with? When 1 did a 
trace of the ADDRESS.F1LE file 1 found 
that it jumps from the directory, to Block 
$08, then back to $07, then on to $09. 

This jump forward, the back and then 
forward again seems to happen on all Ap- 
pleworks files, but all the books say that 
ProDOS allocates all blocks in strict order 
from the bottom up. 

1 don't pretend to understand this ap¬ 
parent contradiction, but it seems to 
apply to all files — except seedling files, 
of course, which are only one block in 
length. It is obviously a peculiarity of Ap- 
pleworks rather than ProDOS. 

ADDRESS.FILE is a database file, but 
the same applies to all Appleworks word 
processing files as well. The directory 
pointer points to the block reserved (in 


the longer files) as an index for that partic¬ 
ular file. You can see the top couple of 
lines on Figure 3, which is a printout of 
Block $08 Part A. 


3 3 I 1 3 I 3 3 I E E J 

07090A0B 

OCODOEOF 

10111213 

13 '()*+,-. /O 

14152728 

292A2B2C 

2D2E2F30 

123451 e iiii: 

31323334 

35000000 

OOOOOOOO 

: j : i i : s i s i : : 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

itiiittin:: 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

3 3 3 * * * * 1 * B 1 E 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

1 1 i 1 3 3 I 3 I 3 1 I 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

t i t : : t t : ■ : i i 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

13:131:::::: 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

3 3 : 3 1 1 1 E 3 3 3 1 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

: : : : : 1 : : * : : : 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

: : 1 s 1 3 : s : E 3 3 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

: : : 3 : 3 : : : : £ : 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

: : : : 1 3 : e : 3 s : 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

: 1 ; 1 : : : : : : 1 : 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

: 3 : s t ; 3 : 3 : 1 3 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

::: :::::: 3 : s 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

: : : 1 : : : : : : : : 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

3 : : : : : ; : 1 : : 3 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

: : ; ; 3 : 3 : : 3 : : 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

t 3 3 : : : : : 1 s 3 : 

OOOOOOOO 

OOOOOOOO 

OOOOOOOO 

: : : 3 

00 otto 000 

TRACE:ADDRESS.FIL 

BYTE VALUE 

DLCJCK 1 

OF 30 

44 (*20 0<*00> @ 

S <*08) 

A 2 

Figure 3. A printout of B lock $08 Pari A of the 
ADDRESS.FILE. 


From the left we see the file first uses 
Block $07, then jumps to $09 and runs 
progressively to Block $15. it then jumps 
to $27 and continues on until Block $35. 
The second jump was probably due to an¬ 
other file getting in the way at the time of 
recording. 

The index block actually uses two sec¬ 
tors at a time. Part B on this disk is noth¬ 
ing more than a series of $00s, but there 
could be some $01 in here if 1 had a full 
disk, or I was using a hard disk. 

The program takes the least significant 
byte from part A (in this case $07 . $09 

.., and so on) and the most significant 
byte from Part B (in this case they are all 
$00s). 

With this Appleworks database file, the 
actual information didn't start until near 
the end of Block $0A. Both $07 and $09 
were occupied with the database format¬ 
ting information. 

With word processing files, only one 
block is reserved for format information, 
and the data starts at the top of the next 
block. 

As I've noted before, Block 6 (Figure 4) 
on a ProDOS floppy is reserved for a bit 
map, and for those of you who haven't 
come across a bit map before, I'll describe 
it in detail. You need to know how it works 
if you are going to repair the damaged 
files. 

You can see that the sequence goes: 
$00 $00 $01 $FF $FE $00 $00 $00 $03 
followed by a whole log of $FFs. These 


111 
t i : 
i i t 
t 1 E 
: * i 
ill 
i t i 
: : i 


11 : 13:1 
: l : : 1 1 1 
: 1 t : 1 : e 

E 3 3 1 I I 3 
: : : i £: 1 
b e a e 11 ; 
: : e 111 s 

B 3 3 E 1 1 3 
B B 1 B 

BYTE 
44 <*2C> 


OOOOOlFF FEOOOOOO 03FFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF 
1 FFFFFFFF FFFFFFFF FFFFFFOO 
e 11 OOOOOOOO OOOOOOOO OOOOOOOO 
1 s: OOOOOOOO OOOOOOOO OOOOOOOO 
111 OOOOOOOO OOOOOOOO OOOOOOOO 
e 11 OOOOOOOO OOOOOOOO OOOOOOOO 

I 11 OOOOOOOO OOOOOOOO OOOOOOOO 
111 OOOOOOOO OOOOOOOO OOOOOOOO 
1 11 OOOOOOOO OOOOOOOO OOOOOOOO 

II * OOOOOOOO OOOOOOOO OOOOOOOO 

I I * OOOOOOOO OOOOOOOO OOOOOOOO 
:i 1 OOOOOOOO OOOOOOOO OOOOOOOO 

* 11 OOOOOOOO OOOOOOOO OOOOOOOO 

# * * OOOOOOOO OOOOOOOO OOOOOOOO 
1 1 t OOOOOOOO OOOOOOOO OOOOOOOO 

III OOOOOOOO OOOOOOOO OOOOOOOO 
EI: OOOOOOOO OOOOOOOO OOOOOOOO 
E s 1 OOOOOOOO OOOOOOOO OOOOOOOO 
:11 OOOOOOOO OOOOOOOO OOOOOOOO 
11 t OOOOOOOO OOOOOOOO OOOOOOOO 

OOOOOOOO 

VALUE c® BLOCK PART 6 

0(*00) 8 6<*06> A 2 


Figure 4. A printout of $06 — the bit map — of 
the ADDRESS.F1LE. Compare this with the disk 
map in Figure 2. 


$FFs are added when the disk is format¬ 
ted, so they establish the length of avail¬ 
able space on the disk. You can see that, 
with two parts, this block of bit map can 
handle a fair amount of disk space. 

In binary, the hex $00 translates to eight 
zero bits (0000000) and is repeated twice. 
Hex $01 is binary 0000 0001, while $FF is 
eight ones, and FE seven ones and a zero. 

If you space these out in groups of eight 
in table form, you get the following pat¬ 
tern: 


OOOOOOOO OOOOOOOO 

oooooooi iimm 

111 111 10 OOOOOOOO 

OOOOOOOO OOOOOOOO 

00000011 ... and so on. 

As you can see, this corresponds exactly 
to Pro-Byter’s disk map in Figure 2, which 
is understandable since this is where Pro- 
Byter took its information from. The only 
oddity is that zeros are used to mark the 
presence of information in a block, and 
ones represent availability. 

As the disk is over-written by changes 
and fresh files are added, this disk map is 
constantly changed. You can represent 
any combination of zeros and ones in an 
eight-bit group by choosing the right hex 
number. 

The computer refers to this map before 
writing any information to a disk. The map 
doesn't play a part in reading from a disk 
— the computer has to refer to the indi¬ 
vidual file indexes since this records the 
sequence of blocks used — but for writing 
to the disk, the computer only has to find 
those blocks which are available, and 
these are any on the disk-map repre¬ 
sented by a one. □ 
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ATARI ROUTINES 

Here are two handy Atari routines for drawing circles, and arcs and pies. 


T HE CIRCLE routine is quite straight¬ 
forward - after having loaded the sub¬ 
routine (both routines are given in the 
Listing), it is only necessary to specify the 
x and y co-ordinates of the centre point 
(xl and yl) and the radius (rad) then sim¬ 
ply gosub Drawcircle. 

The arc and pie routine is a bit. more 
complex. Firstly, we need to tell the sub¬ 
routine whether we want an arc or a pie. 
This is done by setting the variable ‘id' (as 
in Australia Card) to 2 for an arc and 3 for 
a pie. 

Next we must specify the start and fin¬ 
ish angles. The Atari convention is that 0 
degrees is horizontal to the right of the 
centre point and the angle increases 
counter-clockwise. The angles for this rou¬ 
tine must be specified in tenths of a de¬ 
gree and are defined in variables ’start' 
and ‘finish’. 

All that remains is to specify the centre 
point and radius, then we are in business. 

The example shown in Listing 2, allows 
you to draw a circle with a centre of 
100,100 and a radius of 100, clear the 
screen, then draw first an arc and secondly 
a pie with the same centre point and radi¬ 
us. The angle of the arc and pie will be 
from 30 degrees (start - 300) to 75 de¬ 
grees (finish = 750). 

Software 

recently looked at two programs which 
attack the education market from quite 
different viewpoints. The first is Math Talk 
from First Byte Software; the second is the 
new favourite for kids of all ages — Don¬ 
ald Duck's Playground. 

Talking Maths 

ath Talk is very good in parts, but has 
a couple of faults which really need 
to be addressed before it could be whole- 
heartedly recommended. 

The program has a number of modules, 
which allow for a variety of activities. First¬ 
ly, the parent or teacher can set up sheets 
of problems in the four basic areas of 
arithmetic —addition, subtraction, multi¬ 
plication and division. The problem 
sheets can be printed out or called up by 
another part of the program 


When a sheet of problems is called up 
they can be attempted one by one. If a 
mistake is made, the talking Professor 


Matt A. Matic will explain how to attack 
the problem. But — while the explana¬ 
tions given are quite sound and make 


10 fui Iw 2 * clearu 2 

20 color 1;3;1j1;1 

30 xl- 100*. yl o 100* rad = 100 

40 90 sub DRAWCIRCLE 

50 gosub DELAY 

60 c I earu 2 

70 start = 300* Finish » 750 

80 id = 2» gosub ARCPIE 

90 gosub 0ELAY 

100 clearui 2 

110 id - 3: gosub ARCPIE 

120 gosub DELAY 

130 end 

140 DELAY * 

150 for time = 1 to 5000* next time 
160 return 

170 * 

50530 ' a*##*#*#*##*#**##*######*####### 
50540 ' 

50550 DRAWCIRCLE 
50560 poke cantrl» 11 
50570 poke contr1+2; 3 
50580 poke contr1+6; 0 
50590 poke contrI+10; 4 
50600 poke contrl+12» 2 
50610 poke ptsim xl 
50620 poke ptsin+2; yl 
50630 poke ptsin+4; 0 
50640 poke ptsin +61 0 
50650 poke ptsin+ 8 » rad 
50660 poke ptsin+10; 0 
50670 vdisys(0 > 

50680 return 
50690 1 

50700 * ################*############### 

50710 1 

50720 ARCPIE 

50730 poke contrI; 11 

50740 poke contrI+ 2 » 4 

50750 poke contrl+ 6 ; 2 

50760 poke contrl+lOi id * 

} primitive 10* 2 - arc! 3 * pie 
50770 poke contr 1 + 12 ; 2 
50780 poke ptsin; xl 
50790 poke ptsin+2; yl 
50800 poke ptsin+4; 0 
50810 poke ptsin+ 6 ; 0 
50820 poke ptsin+ 8 ; 0 
50830 poke ptsin+10; 0 
50840 poke ptsin+12; rad 
50850 poke ptsin+14;0 
50860 poke intin; start 
50870 poke intin+2 1 finish 
50880 vdisys(0) 

50890 return 


Listing 2. This example draxvs a circle with a centre of 100,100 and a radius of 100, clears 
the screen, then draws first an arc and then a pie with the same centre point and radius. 
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sense to an adult, they follow a different 
format to that used in Australian (or at 
least West Australian) schools. In the 
lower primary grades, this inconsistency is 
sufficient to cause confusion and rejection 
by the young student. 

The section of Math Talk which pits the 
kids against the clock in tackling ‘tables' is 
far more successful. However, the facility 
for calling up a kid’s score never seemed 
to work. 

A further problem with Math Talk is the 
very slow reaction to mouse events. Ide¬ 
ally, there should be an instant reaction 
on screen, even if the processing for the 
next segment then takes place over a cou¬ 
ple of seconds. However with Math Talk, 
nothing seems to happen for some time 
after the mouse button is pressed — you 
begin to wonder if the computer regis¬ 
tered the click. 

Overall, I see Math Talk as a program 
with great potential, but Version 1.0 is not 
yet a top product. If you wish to look at 
this program, get a primary school teacher 
to run through it with you before commit¬ 
ting yourself to a purchase. 

Disney Software 

onald Duck's Playground shows a re¬ 
freshing approach to educational 
software — the kids think it s a game and 
learn without even knowing it. The big kids 
reckon it's pretty smooth too 

Donald has been around on a number 
of machines, but the Atari version seems 
to be the most successful. (I imagine the 
Amiga could have a reasonable version, 
too, but we won t talk about that! i 

The basic idea of the game is that Don¬ 
ald wishes to equip a playground for his 
three nephews In order to buy the 
goodies, he must get a job. earn the brass, 
then go to the various shops and com¬ 
plete the transaction 

There are four jobs available — train 
controller, packer at the fruit market, shelf 
stacker at the toy shop and airport lug¬ 
gage handler. 

As a train controller, Don has to throw a 
series of levels to direct the train on the 
most direct route to pick up goods at a 
nominated station, then deliver them 
elsewhere For each successful delivery, a 
small amount is added to his wages. 
(Note that this is all piecework and pay¬ 
ment is only for results. The unions would 
have a fit!) 

At the fruit market, our intrepid duck is 
standing in front of three large bins As 


watermelons, pumpkins and lemons are 
hurled at him from the back of a truck. 
Donald has to catch them and place them 
in the right bin. Again it's payments for re¬ 
sults. One complication at the fruit market 
is that the fruit doesn't seem to follow the 
laws of physics as it sails through the air 
— no nice parabolic curves here. 


At the fruit market, our 
intrepid duck is standing 
in front of three large 
bins. 


The toyshop requires Donald to posi¬ 
tion a ladder in front of the right part of 
the shelf, pick up toys from the conveyor, 
climb the ladder and put the toy on the 
shelf. This is hard. A further complication 
is that at frequent intervals a train will 
roar past, vibrating some of the stock 
down from the shelves. Donald must an¬ 
ticipate this and pull a level which places 
a guard in front of the toys. For every 
broken item, money is deducted from his 
wages — where's the shop steward? 

At the airport, packages on a conveyor 
must be picked up and thrown into 
waiting trolleys. The packages all bear 
three character airport codes, as do the 
trolleys. The airport sequence features a 
nicely animated jumbo jet landing then 
taxiing up to the apron. 

Earning your money in this game is 
quite hard, especially at the toyshop. The 
game is configured to be played using key¬ 
board (either numeric pad or cursor keys), 
joystick or mouse. Quite frankly, the 
mouse is much too hard for this applica¬ 
tion — the joystick is best. 

Having earned all this money. Donald 
can go over to the shops and buy up the 
equipment for the playground. This in¬ 
cludes slides, climbing ropes, ladders, old 
boxes and so on. Having selected an item, 
Donald then must pay for it by placing 
coins in the cash register. If he doesn't 
have the right change he must work out 
how much change is due 

The fun is just beginning, as you can 
now walk Donald over to the park, where 
one of his nephews is seen sliding down 
slides, jumping on old boxes and climbing 
trees 

At this point, one of the few faults with 
this program becomes apparent — at 


each change of scenery, the program goes 
out to disk to load the next screen. It is 
quite disconcerting to have young Hewie 
(or is it Louie?) sliding down a flying fox 
then have the whole thing freeze up for a 
few seconds while the disk drive does its 
thing. 

Running the program from a RAM disk 
might overcome this problem, but I didn't 
have enough memory on my 520 ST for 
this to work. Even with a RAM disk there 
may be problems with the copy-protection 
on the master disk. 

Donald Duck's Playground is a very 
good program indeed. It has excellent 
graphics, smooth action, catchy tunes and 
teaches money handling, arithmetic and 
hand-eye co-ordination. Three to six year 
old players will need help from mum or 
dad, which is the standard excuse in this 
household for hogging the action. 

New Hardware 

hat West Australian innovation house. 
Tech Soft, has just announced its new 
360 kilobyte 13 cm floppy drive for the 520 
and 1040 STs. Why, I hear you ask, would 
anybody want to connect an old tech¬ 
nology drive to an ST? Well it makes sense 
when I tell you that they have also 
released their IBM PC emulation program! 
That’s right, the Atari ST can now be 
down-graded to run all that so-called ’in¬ 
dustry standard' software. 

Seriously, this is an immensely impor¬ 
tant innovation for people like me who 
work with IBM or clone computers and 
have Ataris at home. It is now possible to 
transfer data between the machines and 
to run IBM software such as Lotus 1-2-3, 
Wordstar, Microsoft Word and other well 
known packages on the Atari. 

The execution looks a bit leisurely — I 
would guess it's just a bit slower than the 
original 4.77 MHz PC. However, for the 
type of use which this product is designed 
for, that is adequate. It's also really very 
impressive when you consider that the 
MC68000 processor in the Atari is not only 
carrying out all the calculations for the 
IBM programs, but at the same time pre¬ 
tending to be a totally different type of 
processor. 

I hope to have full details of, the IBM 
emulator package next month In the 
meantime, consider that with this pack¬ 
age, and with the current heavy discount¬ 
ing of Atari products, you can have an IBM 
and an Atari in one box for less than the 
price ot a c heap clone' 
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Borland International's Turbo Pascal has revolutionised the way in which many of us 
program. Here, Peter Hill shares twenty ways to make life with Turbo Pascal more fun! 
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T URBO PASCAL has more than 
500.000 users worldwide. Its 
speed, power and especially its low 
price have done more to intro¬ 
duce Pascal and structured programming 
to the mainstream of microcomputing 
than all the efforts of the Pascal propo¬ 
nents and structured programmers com¬ 
bined. 

Turbo Pascal has also attracted a deal 
of criticism. On the one hand, some of 
those who are familiar and comfortable 
with BASIC or assembly language have 
raised their eyebrows at the tyranny' of its 
structure and the need to pre-declare all 
variables; on the other, esoteric argu¬ 
ments about Borland's adherence to the 
ISO Pascal standard and potential difficul¬ 
ties with portability of standard Pascal 
programs from mainframes have been 
raised. 

While this article is not a defence of ei¬ 
ther camp, I feel it's worth stating my own 
position: I use whatever language will suit 
my immediate needs, and for some time 
nearly all my needs have'been met by 
Turbo Pascal versions 2 and 3 (although 
l*m looking forward with interest to the re¬ 
lease of Borland's version of Modula 2). I 
don't port software between mainframes 
and micros; if you do, you may find the ar¬ 
guments about portability of some rele¬ 
vance. If you don't, I believe it is not un¬ 
realistic to say Turbo Pascal has now be¬ 
come the defacto Pascal standard for mi¬ 
crocomputers. 

I don’t believe that Turbo Pascal is per¬ 
fect. In particular, the limitations on pro¬ 
gram size and data space dictate against 
its use for major projects; it is, however, 
sufficiently fast and flexible for medium- 
size projects and writing utilities. 

Having got that off my chest, it's time to 
turn to the meat of this article. The follow¬ 
ing Turbo tips are things I have picked up 
in my Turbo travels which I thought worth 
sharing. 

Tip 1. 

Disk Directories 

BASIC users will initially be dismayed that 
the simple FILES '* *’ procedure of vari¬ 
ous BASICs is not available in Turbo Pas¬ 
cal. Indeed, writing such a procedure in 
Turbo Pascal requires some knowledge of 
interrupt procedures. Listing I (Program 
Diry) is suitable for incorporation within 
programs which require an equivalent to 
BASIC's FILES statement. 

It is possible to modify and extend this 
program fragment substantially to show 


PROGRAM Diry; 

< 

P.R.Hill Last modified 27/4/1986 
Copyright HILLSOFT 1986 

Not for sale or commercial distribution, but may be freely 
distributed 

alone or within users programs 


TYPE 

Regset - RECORD 

ax,bx,cx,dx,bp,si, di,ds,es,Flags : INTEGER; 
END; 

FileNameType - ARRAY!1..80J OF CHAR; 

Str80 - STRING!801; 

Dta_Def RECORD 

Filler : ARRAY!1 . . 2 1 ] OF BYTE; 
Attribute: BYTE; 

FileTime : INTEGER; 

FileDate ; INTEGER; 

FileSize : ARRAY!1..21 OF INTEGER; 
FileName : FileNameType; 

END; 

CONST 

Carry 1; 

Directory - $10; 

VAR 

Pattern : STRING 140 1; 

Size : REAL; 

TotalSize :REAL; 

NrFiles ; INTEGER; 

volLabel : Str80; 

Marker : CHAR; 

PROCEDURE Recurse; 

VAR 

Dta : Dta Def; 

Pa ram : Regset; 

SearchStr : STRING!701; 

rl,r2 : REAL; 

Dtasave : ARRAYtl..23 OF INTEGER; 

FUNCTION Pack_ Name< VAR Location; Size : INTEGER) : StrSO; 

VAR 

Counter : INTEGER; 

InterimStr : Str80; 

Letter : ARRAY!1..1000) OF CHAR absolute Location; 

BEGIN 

Counter l; 

InterimStr ''; 

WHILE ( Letter! Counter lochr( 0 )) AND (Counter <- Size) DO 
BEGIN 

InterimStr InterimStr+LetterI Counter 1; 

Counter :^ Counter+l; 


END; 

Pack_Name : = InterimStr; 
END; (Function Pack Name) 


Listing I. Listing a directory 
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BEGIN (Procedure Recurse) 
with Param,Dta DO 
BEGIN 


ax :» 32F0 0; 

MsDos(Param); 

DtaSavel 1 ] : •* es ; 

Dtasave(2] : - bx; 
ax $1A00; 

ds seg(Dta); 

dx :» Ofs(Dta) ; 

MsDos(Param); 
ds : seg(Pattern!1 )) ; 
dx :- ofs(Pattern!1)) ; 
ax 3 4 E 0 0; 

CX : 3FF; 

MsDos(Param); 

TotalSize:»0 ; 

WHIL (Flags AND carry) * o do 

BEGIN 

Searchstr : ■» Pack_Name(FileName,sizeof(FileName) >; 
IF ((Attributeou) 

AND ((Attribute AND Directory) <> o) 

AND (Searchstr <> '.') 

AND (searchstr <> '..')) THEN BEG - 


BEGIN 


searchstr : =* searchStr+chr ( o ) ; 
ax :«* $ 3B0 0 ; 

ds seg(Searchstr(1]); 

dx Ofs(searchstrt1)); 

MsDos(Param); 

Recurse; 
ax :■» 33B0 0 ; 

Searchstr :- ' , . ' #o ; 
ds Seg(Searchstrt1)); 

dx Ofs(Searchstrl1]); 

MsDos(Pa ram); 

END 


END 

END; (Case) 

END; 

ax 3 4 F 0 0; 

MsDos(Param); 

END; 

ax :■ $ 1AO 0; 
ds :=* DtaSavel l ] ; 
dx :» DtaSavel2]; 

MsDos(Param) ; 

END; 

(Procedure Recurse) 

(Main body of program) 

Write('Pattern ?:'); 

Read(Pattern); 

IF Length(Pattern)*0 THEN Pattern 

ClrScr 

NrFiles:~o; 

VOlLabel; 

Pattern := Pat tern*hr(o ) ; 

Recurse; 

WriteLn ; 

HighVideo;Write('>');Lowvideo; 
Write('Total of ',TotalSize:4:0, 

' k B',' in ',NrFiles, ' files 
IF VoiLabelo' ' THEN 


* _ * * . 


ELSE 

BEGIN 

rl :- Filesizet1); 
r2 :“ Fllesizel 2 J; 
if rl < o then rl :» rl+65536.0; 
if r2 < 0 then r2 :» r2-f65536.0; 

REPEAT Searchstr:*searchstr+' ' 

UNTIL Length(SearchStr)=13; 
Size:-(r2*65536.0+rl)/l000; 

TotalSize:^TotalSize+Size; 

IF Si 2 e<I THEN size:=1; 

CASE Attribute*OF 

8:volLabel:*Searchstr; 

2,35,38,39 :(this is hidden); 
lc:write(searchstr,'sdir ',CHR(i79),' '); 


BEGIN 

HighVideo;Write('>');Lowvideo; 
write('Volume label VolLabel); 

END; 

WriteLn; 

Wr.ite('Press any key to continue....'); 
REPEAT UNTIL KeyPressed; 

ClrScr; 

END. 


ELSE 


BEGIN 

Write(Searchstr,Size:3: 0 ,'k ',CHR( 179),' ') ; 
NrFiles:^NrFiles+l; 
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directories only, show files only, show the 
long file form including date and time of 
file creation, or to show hidden and sys¬ 
tem files. I have presented a short version 
because it provides the basic functions 
without being excessively long. In order to 
incorporate it in a program, you should 
make the following modifications: 

1. change the top line from PROGRAM 
Diry; to PROCEDURE Diry; 

2. change the last line from END. to END; 
{Procedure Diry} 

3. place the line {$IDiry.lnc} in your pro¬ 
gram 

4. name the above procedure DIRY.INC 

Tip 2. 

Fast Screens 

Turbo Pascal generates 'well-behaved' 
code; that is, the code it produces does 
not directly address hardware, but rather 
works through the MS-DOS and ROM 
BIOS function calls. This ensures a degree 
of portability across various machines. 
However, one unfortunate consequence is 
functions such as writing to the screen can 
be v-e~r-y slow. 


One solution to this problem is to di¬ 
rectly address the part of memory dedi¬ 
cated to maintaining the screen. This ap¬ 
proach does reduce portability, as other 
MS-DOS computers, such as the NEC APC 
111 and the Hewlett-Packard HP 150, use 
different memory addresses for the 
screen. But the problem is not insur¬ 
mountable, since the code can easily be 
modified for the particular machine if the 
correct screen-memory address is avail¬ 
able. If you are wondering whether this is 
worthwhile when compared with the sim¬ 
plicity of using Write or WriteLn, then I 
can only add this gives an almost instan¬ 
taneous screen refresh for a complete 
screenful of text! 

Listing 2 illustrates the use of the 
procedure Write—A—Line (WAL) instead 
of Write or WriteLn. The parameters which 
are passed to this procedure are - 
Attr - the video attribute required (see 
Table 1); 

Return - if a carriage return is required at 
the end of a string, pass a value of I, else 
pass a value of 0; 

C - the column to start the string; 




PROCEDURE WAL(Attr,Return,C,R:Integer; Currentstr:STRINGf 80 }), 
VAR 


count,Col,LenCurrentstr :Integer; 
BEGIN 


LenCurrentstr:-LengtMCurrerttstr)-1; 


Col:«C+LenCurrentStr; 

C:-( (R-l)*160) + ( (C--1 )*?.) ; 

FOR Count:*i TO LenCurrentstr DO 
BEGIN 


Memt $B0 o o : c J * ^Orcl (cur rents tr I count J ) , 

Mernt $B0 0 0 : C+l J : «Attr ; 

C:*C+2| 

END; 

IF Return-1 THEN GotoXY(1,R+l) ELSE GoCOXY(Col,R); 

END; 


Listing 2. Writing directly to the screen 


value (Decimal) 

128 
6 4 
32 
16 
8 
4 
2 
1 


FUNCTION 

Blink 

Red Background 
Green Background 
Blue Background 
Intensity 
Red FcreGrouad 
Green ForeGround 
Blue ForeGround 


Table I. Video attributes. 


R - the row to start the string; 

CurrentStr - the string to display. 
Essentially, this routine places the ASCII 
values of the characters directly into 
memory locations which happen to be the 
memory locations allocated to the video 
display. The value $B000 (Hexadecimal 
B000 or Decimal 45056) is the starting ad¬ 
dress of video memory, and C is the calcu¬ 
lated offset from this starting address, de¬ 
pendent on the row and column desired. 
The starting address given above is for the 
monochrome adapter. For the colour- 
graphics adaptor, you should substitute 
$B800 for $B000 in the above. The attri¬ 
bute you require can be derived from the 
video attribute list in Table I. You get the 
attributes by adding together the desired 
characteristics; for example - 

128+2+8+64=202 

will give you a bright, blinking green fore¬ 
ground on a red background. 

A call to the procedure WAL within the 
body of a program might look like this: 

ThisStr:='Bright green on black'; 

WAL( 10,1,15,5,ThisStr); 

The result of this will be equivalent to the 
standard Turbo Pascal statements: 

ThisStr:= Bright green on black'; 
HighVideo,- 

GotoXY( 15,5); 

WriteLn(ThisStr); 

LowVideo; 

As you can now see, this is a more com¬ 
pact method of writing to the screen. As 
you will see when you use it, it is also much 
faster. You'll appreciate it when you have 
a full screen of text to present. 

Tip 3. 

Redirection of Input/Output 

While this process is described in the 
Turbo Pascal manual, it would not be un¬ 
kind to say some clarification could bene¬ 
fit the less-technical user. MS-DOS (and, 
of course, PC-DOS) allows redirection of 
input and output. This means the output 
of one program can serve as the input to 
another, and vice-versa. Using this facility, 
it is very simple to write a niimber of small 
utility program which can feed off each 
other. In combination, these trivial pro¬ 
grams can add up to a very flexible set of 
extensions to the operating system. The 
two examples beiow can be used together 
to create an uppercase ASCII file from a 
Wordstar file, in the following manner: 
WS2A <Wsfilename|UCASE >ASCIIfile 
In this command, the program WS2A is to 
take its input from the named Wordstar 
file and place the output of the operation 
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y-& kM'Jk* 4 

PROGRAM WS2A; 

($G20 4 8,P2 0 4 8) 

( 

ws2a,...WordStar to ASCII 
USEAGE 

ws2a cinfile >outfile 
} 

VAR 

C :Char; 

BEGIN 

REPEAT 

Read(C); 

( IF Ord(C)>127 THEN C:«Chr(Ord{C)-128) ; ) 

C: -Chr(Ord ( C) AND-97F); 

IF CO*21 THEN Write(c); 

UNTIL C»*Z; 

END, 

Listing 3. Converting Wordstar files to ASCII format. 

PROGRAM Ucasei 
{ S P 2 0 2 8 , G 2 0 2 8 ) 

< 

Filter input to all upper case including Wordstar type files 
with the MSB set. 

Useage ucase <Input >output OR 
dir Iucase 
) 


VAR 

C : Char; 

BEGIN 

REPEAT 
Read(C); 

C:-UpCase(C); 

If CO*Z THEN Write(c) ; 
UNTIL 

END * 

Listing 4. Lower-to-upper case conversion. 
in the named ASCII file. The '|' symbol is 
used to 'pipe' output from one program to 
another. Thus, the Wordstar file will be 
first converted to upper case, and the out¬ 
put of this procedure will be piped to the 
WS2A program for conversion into ASCII 
format. 

There are a couple of points to note in 
the programs UCASE and WS2A: as we are 
using DOS 'standard' files, there is no 
need to specify the opening, closing or as¬ 
signation of the files; and the $G and $P 
(get and put) compiler directives are es¬ 
sential, with the numbers following them 
indicating the buffer sizes allocated to 
each task. The uppercase conversion pro¬ 


gram uses the standard Turbo Pascal func¬ 
tion UpCase. 

Tip 4. 

Buffered Input/Output 

Turbo Pascal defines a standard type of 
file called 'TEXT'. This file is essentially a 
file of lines of text, separated by the Car¬ 
riage Return/Line Feed combination. Such 
files are commonly found in many pro¬ 
gramming situations; for example, ASCII 
files created by word processors, PRN files 
created by Lotus 1-2-3, and Pascal source 
files conform to this type. 

One feature of Turbo Pascal is the abil¬ 
ity to set the buffer size of such files. The 


default buffer size is 128 bytes, which es¬ 
sentially means a block of 128 bytes is 
read and processed, and then a new disk 
access is required. Although the optimum 
buffer size depends on the particular ap¬ 
plication, it is certain that 128 bytes is sig¬ 
nificantly less than the optimum. 

For most purposes, a buffer size of 1024 
bytes will result in a faster disk-access 
time, with fewer and quieter disk accesses. 
The buffer-size parameter is set when the 
file variable name is declared. 

For example; VAR 

TextFile ;TEXT|$800| 

will give a 2048 byte (or 2 Kbyte) buffer 
size. Some experimentation is worthwhile 
here; larger buffers may give better re¬ 
sults, but they also chew through avail¬ 
able data storage if they are declared as 
global variables. 

Tip 5. 

Global Gobblers 

Turbo Pascal has a limit of 64 Kbytes of 
data-storage area. This limit can be cir¬ 
cumvented by the use of pointers, but the 
technique is complex and also dependent 
on the actual program under considera¬ 
tion. One way to ensure you at least get 
your full complement of 64 Kbytes of stor¬ 
age is to minimise the use of global vari¬ 
ables, and place variables in procedures 
whenever possible. 

Listings 5 and 6 provide examples of 
this. The minor difference of including the 
help-file specification in the Open—Help 
—File procedure saves 4 Kbytes of space 
in the data area, since the space for the 
help file is only allocated when it is re¬ 
quired. 

PROGRAM Samplel; 

VAR 

Input,Output,Help:TEXT[$10001; 

PROCEDURE workingj?rocedure; 

BEGIN 

(* Main Program procedure*) 

END; 

PROCEDURE Openjielpjme; 

BEGIN 

<*Open the help file*) 

END; 

BEGIN (Main Program) 

REPEAT 

working_Procedure; 

UNTIL Help_Called; 

Open_Help_File; 

END. 

Listing 5. Conserving data-storage space — I 
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Turbo Pascal generates 
'well-behaved' code, 
which ensures a degree of 
portability across various 
machines, but which 
makes functions such as 
writing to the screen 
v-e-r-y slow. 


PROGRAM Sample2; 

VAR 

input,OutPut :TEXT!31 00 0 3 ; 

PROCEDURE Working_Procedure; 
BEGIN 

(* Main Program procedure*) 
END; 

PROCEDURE Open_Help_File; 

VAR 

Help :TEXT[$1000 1 ; 

BEGIN 

(*Open the help file*) 

END; 

BEGIN (Main Program) 

REPEAT 

Working__Procedure; 
UNTIL Help_Called; 
Open_Help_File; 

END. 

Listing 6. Conserving datastorage space — II. 

Tip 6. 

Use Libraries 

After programming in Turbo Pascal for 
some time, you will find you are covering 
familiar ground. For example, opening a 
text file to read in data consists of a num¬ 
ber of steps, no matter what you are going 
to do with that data, namely; 
a) Get the file name (from input or com¬ 
mand line parameters); 
bl Check the file exists; 

c) If it does, assign the name; 

d) Reset the file. 

If you take the time to set up appropriate 
libraries of tried and tested routines for 
these functions, that time will be rapidly 
paid back. Probably about 50 percent of 
any conventional new program will com¬ 
prise routines which are either identical 
to, or minor modifications of. routines 


found in most other Turbo Pascal pro¬ 
grams. By using library routines, you will 
achieve faster program development, 
more reliable programs due to b* gs being 
progressively eliminated, and space sav¬ 
ings because you will 'include' these rou¬ 
tines in your programs. 

Tip 7. 

Consistent Syntax 

Pascal allows the free and interchange¬ 
able use of upper and lower case letters, 
together with long variable names. This 
makes it easier to enhance program clar¬ 
ity. If you are also consistent in your use of 
case and word separators, your code will 
be easy to read and debugging won't be so 
arduous. I use a number of conventions 
when writing programs: 

W Reserved words are all in upper case, 
such as WHILE. 

■ Variables, types and standard functions 
are in a combination of upper and lower 
case, with no separators; for example, 
ClrScr. CountToDate, LineBuffer|n|. 

■ Procedures and function names are in 
mixed case, with the underscore as a 
separator, for example Count—The— 
Lines, Rotate—Matrix. 

With this system, it is relatively straight¬ 
forward to follow the source code. It is not 
important you adopt tfiis convention; it is 
important you adopt a convention. 

PROCEDURE Show_lndenting; 

BEGIN 

In_One_Step; 

WHILE NOT Saturday DO 
BEGIN 

Day :.*Day+i; 

weekDay:®succ(WeekDay) ; 
END; 

REPEAT 

GQ_T°jW°rk:; 

UNTIL Saturday; ^ 

END; (Procedure Show_jrndenting) 

Listing 7. Example of code indentation. 

Tip 8. 

Consistent Indentation 

It is similarly important to have a consis¬ 
tent indentation approach, and one which 
does not unnecessarily increase the size 
of the code. I have adopted an approach 
which indents within a block of code, 
which is best illustrated by example. Have 
a look at Listing 7. this approach allows a 
high degree of clarity without the over¬ 
head involved in some schemes. □ 
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support. 


Thankfully, only about 
30 per cent of people 
with multiple sclerosis 
4 are moderately to 
severely disabled and 
require support from 
specialised services. 
These services are 
expensive and wouldn’t 
exist without your 
generous support. Please 
support MS with your 
understanding as well as 
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The speed, power and 
price of Turbo Pascal have 
given it a base of over 
400,000 users who have 
discovered its revolutionary 
approach to programming. 
‘But, it’s not perfect,' says 
turbo travellin' Peter Hill, 
and here he shares 12 
more tips to make life 
more fun for turbo 
programmers. 

IN PART 1 I wrote about disk directories, 
speeding up screen displays, redirecting 
input/output, buffering input/output, 
minimising the use of space-gobbling 
global variables, and the advantages of 
using libraries and consistent syntax and 
indentation. In Part 2 I've tipped the 
scales with the other'half' of the info 

Tip 9. 

Natural Structures 

The RECORD data structure provided in 


Turbo Pascal (and other Pascals) tends to 
be overlooked by newcomers from other 
languages, but is in fact one of the most 
natural constructions available in any lan¬ 
guage. Essentially, it allows an item or 
record to be represented as a group of fea¬ 
tures (fields or attributes). The ability to 
refer to this record only once and then to 
deal with all its features simultaneously is 


one of the strengths of Pascal. To give a 
trivial example, consider the way in which 
a screenful of space invadeis could be ad¬ 
dressed : 

Although setting this type of structure up 


takes a few lines, the beauty of being able 
to address each record of the array as a 
whole outweighs this initial effort The 
short story is this where it is possible to 
use a natural representation of real-world 
(or outer space!) data, do so in preference 
to using fancy constructs. The results will 
be much more manageable when you are 
deeper into the program. 


Tip 10. 

Error Handling 

With the advent of Turbo Pascal 3 0, the 
facility for users to write their own error¬ 
handling procedures was introduced In 


PROGRAM Invaders; 

CONST 

Red r1; 

Blue -2; 

Yellow =3; 

invaderRows.i«5; 
invaderCols^S; 

TYPE 

valueType -l, .200 ; 

ColourType =Red,Blue,Yellows 

InvaderType ^RECORD 

Altve :BOOLEAN; 

Column :INTEGER; 

Row rINTEGER; 

Value :ValueType; 

END; 

VAR 

invaders :ARRAYl1,.InvadersRows,1..invaderCols] OF invaderType; 
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early versions of the manual, this was not 
included, but was referred to in the 
READ.ME notes on disk. The procedure is 
simply to: 

■ Assign the value of the Offset of the 
error to the standard variable ErrorPtr; 
that is, include a statement early in the 
main body of the code thus 
ErrorPtr:=Ofs( Error) 

■ Set up a procedure as follows: 


Unfortunately, it is essential that the last 
thing the error-handling procedure does is 
to Halt execution of the program. Any at¬ 
tempt to ignore the error and return to the 
main body of the program, or indeed any 
error in the error-handling routine itself, 
will cause Turbo Pascal to take control of 
the error and halt itself. This, however sug¬ 
gests a structure for user-written error- 
handlers along the following lines: 

1. Give a suitable message to the user. 

2. Show the Error type and Error Number 
for the programmer's benefit. 


3. Ascertain as far as possible the nature 
of the problem. 

4. Close files you know to be open. 

5. Attempt to close files which might be 
open. 

6. Halt. 

This hierarchy tends to maximise the pro¬ 
tection against data loss, while minimis¬ 
ing the risk of a premature halt by Turbo 
Pascal. 


The procedure in Figure I (which as¬ 
sumes the user has defined a file assigned 
to the variable InFile, and a file assigned 
to the variable OutFile) shows a typical 
error-handling procedure, which follows 
the above hierarchy. 

Tip 11 . 

Plan for Overflow 

The Turbo Pascal editor is limited to han¬ 
dling a maximum of 64 Kbytes of source 
code. Having written a number of large 
(greater than 60 Kbytes of source code) 
Turbo Pascal programs, I have now 


learned to better anticipate the problems 
that arise with large amounts of code. 

Nothing is more pathetic than the spec¬ 
tacle of a programmer attempting to de¬ 
cide which bits of code to write out to In¬ 
clude files when there are only 500 bytes 
of space left in the editor. If there is a 
chance that your source code will ap¬ 
proach 64 Kbytes, plan to develop some 
parts of your code as separate modules 
prior to the point where you are already 
pressed for space. The modules to be 
treated separately ought to be straightfor¬ 
ward, of reasonable size and, most impor¬ 
tantly, independent in their operation 
from the other modules in the main body 
of the program. 

Tip 12. 

Organised Back-up 

Although Turbo Pascal creates .BAK files 
after each edit of source code, this is not a 
truly reliable method of back-up, since If 
is very easy to fall into the situation where 
you perform one major edit, then a small 
syntactical error causes the need to re- 
edit and save again. At this stage the old 
version of the structure is gone. Since 
Turbo Pascal is so compact, it is easy to 
have a disk in drive A: with Turbo Pascal 
and your work files, and a disk in drive B: 
with a copy of drive A; which is created 
prior to each major edit. This disk (the 
copy) should then be archived separately 
at the end of each day's work, and the 
previous day's disk brought out as the 
next day's back-up. 

If this seems like a somewhat paranoid 
approach to back-up. believe me, it's bet¬ 
ter than the sinking feeling you get when 

a) The cat eats your work disk ( BAK files 
and all). 

b) You realise your last major edit was 
misdirected. 

A suitable batch file on your A. drive to 
handle the housekeeping is SAVEIT.BAT, 
which reads as follows: 

B: 

COPY A:*.* 

A: 

DIR/W 

TURBO 

Tip 13. 

Use Productivity Tools 

Professional programmers in large organi¬ 
sations use a vast toolbox of productivity 
tools: typically these are expensive and 
powerful For the more modest budget, 
there are still a number of approaches 


procedure: ErrorfErrNo, ErrAddr: Integer); 

VAR 

InFileProb,OutFileProb : BOOLEAN; 

BEGIN 

Clrscr; 

InFileProb:“False; 

OutFileProb;=False; 

Write(Chr(7)); (ring the bell) 

GOtOXYt5,5); 

CASE Hi(ErrNo) OF 

i:Write('User Break..Bye.. >; 

2:BEGIN 

Write( ' A fatal Error has occurred l ‘ ) i 
WriteLnt'(Type r/O, Nr. Lo(ErrNo),')'); 
CASE bo(ErrNo) OF 

2,145,153:TnFileProb:-True; 

3,24 2 , 240 : OuFii.eProb: True; 

END; (Case) 

END; 

3:BEGIN 

writet' A fatal Error has occurred !'); 
WriteLn(MType Runtime, Nr. LotErrNo),')'); 
END; 

END; (Case) 

(close most probable suspect file) 

IF InFileProb THEN ClosetInFile); 

IF OutFileProb THEN Close(OutFile); 

(attempt to close less probable suspect files; this 
may crash, but that is going to happen anyway!) 

IF InFileProb THEN Close(OutFile); 

IF OutFileProb then c.losetInFile); 

Halt; 

Figure I. end,- 


PROCEDURE Error(ErrNo, ErrAddr: Integer); 
BEGIN 

(error handling code) 

END; 
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which can be fruitful. The next three sug¬ 
gestions are productivity tools for the 
shoestring budget. 

a) Keyboard Enhancers 

A number of keyboard enhancers are 
available in the public domain. An exam¬ 
ple of these is Frank Bell's 'Newkey', which 
is simple, reliable and robust. Since Bor¬ 
land have only defined F7 and F8 on the 
PC's keyboard, there is a lot of scope for 
using Newkey to simplify coding, and also 
to avoid spelling errors. Pressing FI could, 
for example, generate the following code - 

WHILE DO 

BEGIN 

END; 

and leave the cursor between WHILE and 
DO. 

b) ASCII T able 

A clear.single-sheet ASCII table showing 
Decimal, Hex, Character and control func¬ 
tions visible from your keyboard is indis¬ 
pensable. 

c) DECIMAL to HEXADECIMAL Chart 
This can be very handy, especially since 
the Borland manual is prone to referring 
to such items as Error codes in Hex. 

All the above are also available from 
Borland in more convenient form (for ex¬ 
ample, Superkey plus Sidekick), 

Tip 14. 

Compile to RAM 

Source code can either be compiled di¬ 
rectly to a COM file on disk, or first to 
RAM and then to disk. 

The second method is somewhat faster, 
especially for large files which may have a 
bug on line 2000. As soon as the program 
is successfully compiled to RAM, it can 
then be trialled in direct mode; if this is 
successful, it is time to compile to disk 
using the C option of the Compiler Op¬ 
tions menu. 

Tip 15. 

Maximum Free Dynamic Memory 

At the end of execution of a .COM file pro¬ 
duced by Turbo Pascal, the program will 
seek to reload COMMAND.COM. If this is 
temporarily unavailable (for example, if 
it's not on the current default disk), DOS 
will request that a COMMAND.COM disk 
be inserted. This inconvenience can be 


Nothing is more pathetic 
than the spectacle of a 
programmer attempting to 
decide which bits of code to 
write out to Include files 
when there are only 500 
bytes of space left in the 
editor. 


avoided by setting the maximum free dy¬ 
namic memory to the same value as the 
minimum free dynamic memory in the 
Compiler Options menu. 

Tip 16. 

Give Me a Break! 

The default value of the compiler directive 
U is {$U-}. In this state, Ctrl-C will allow 
interruption of a program by a user only 
when the program is waiting for input. 
While developing software, it is better to 
set this state to {$U + }, which will allow 
user interruption via Ctrl-C at any time, 
and to accept the deterioration in speed 
of operation this causes. This compiler di¬ 
rective should be removed from the 
source prior to compiling for the last time, 
after all bugs have been eliminated. 


Tip 17. 

Be Liberal with Comments 

Programmers who are familiar with com¬ 
pilers will find this an unnecessary note, 
but many people are more familiar with 
interpreters, especially BASIC, where com¬ 
ments actually slow execution. This is not 
the case in Turbo Pascal, where the com¬ 
piler completely ignores any comments. 
Consequently, comments and notes can 
be sprinkled throughout the text {like 
this} at no cost in terms of execution 
time. If these comments are well chosen, 
they will assist you in maintaining the 
program or modifying it many months 
later. 

Tip 18. 

Use Both Types of Parentheses 

Turbo Pascal allows comments to be sur¬ 


rounded by comment marks, either of { 
this type } or (* this type *). This raises 
the possibility of using each for a different 
purpose. Where I wish to make a comment 
in the source code. I do so using { this 
type of parentheses }. When I have sus¬ 
pect code, or wish to make a major change 
I comment it out (* thus *). Using this 
convention allows me to search for (* in 
the text, and either re-instate the com¬ 
mented code or eliminate it after testing. 

Tip 19. 

Avoid Text Searches 

In longer source documents, it can take up 
to one minute for the Turbo Pascal editor 
to locate a particular string. If you are in a 
cycle of editing-testing-editing a section 
of code this, lag is unwelcome. If, however, 
you mark a part of your code to which you 
are returning frequently as the start of a 
block ( : KB or-F7), then any time you issue 
the command : QB the Turbo Pascal editor 
will find that point immediately. This is 
true even if you leave the editor and com¬ 
pile and run a program. 

Tip 20. 

Read All Input as Strings 

At first it may seem strange to accept the 
input to a real number as a string, but you 
only need to consider what might happen 
if you accept it as a real first to make 
sense of this tip. 

The strategy is as follows (assuming we 
are after a positive integer) - 

■ Read the input as a string. 

■ Parse the string. 

■ Does it contain alpha characters? 

■ Does it contain a minus sign? 

■ Does it contain a decimal point? 

■ If any of the above is true, then reject, 
ask the user again, and repeat parsing. 

■ Otherwise, accept the string, and con¬ 
vert its type to integer. 

I hope my collection of Twenty Tips 
above will save users of Turbo Pascal as 
much time as it took me to discover them; 
in the case of Turbo Pascal, however, the 
pleasure is often in the journey. 

Reader's who have picked up their own tips to 
make life easier with Turbo Pascal are invited to 
share them — send them to Your Computer 
and we'll pass them on to Peter Hill for comment 
and publication later in the year. □ 
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Turbo Tips 

Fudging and cursing! 


Two more Turbo Tips - 
'Fudge' returns an integer 
result to multiplication by a 
fraction and 'Curses' 
allows manipulation of the 
cursor on a PC. 


NOW THAT BORLAND, have released 
Turbo Pascal for the Apple Macintosh (can 
the Amiga and Atari ST be far behind ?), 
this programming system is available for 
three very pervasive computer systems. 
The IBM PC family is supported in both 
MS-DOS and CP/M- 86 flavours, a very 
similar CP/M system is available for 8-bit 
users and a more-fully featured version 
supporting the Mac world is now making 
its impact. 

This puts Turbo Pascal in the similar 
position to Microsoft Basic and some C 
compilers; it is becoming a lingua franca 
of microcomputing. On this basis, we 
thought the time had come to host a regu¬ 
lar column to serve as a forum for Turbo 
Pascal users. 

The content (and no doubt the quality) 
will vary from month to month; as well as 
tips, there will be some product informa¬ 


tion. Some content will be machine spe¬ 
cific whilst other parts will be more gen¬ 
eral. Importantly, 1 look forward to your 
participation and welcome both sugges¬ 
tions and queries. 

Fast Fudge 

To wet your appetite, Fudge returns an in¬ 
teger result to the multiplication of an in¬ 
teger number by a fractional number. Usu¬ 
ally this would require resort to floating 
point operations or at least conversion to 
and from floating point, but you can work 
around that providing that you are confi¬ 
dent that there will not be overflow in the 
first step of multiplication of the numera¬ 
tor of the fraction by the first integer. Un- 

FROGRAM Fudge; 

i >f : INTEGERi 

r ;REAL; 


fortunately, if you aren't confident of that. 
Turbo Pascal won't help; there is no error 
checking on Integer overflow. 

Amongst other things, the routine 
points up what could be achieved in inte¬ 
ger arithmetic if only a long integer type 
were available in Pascal. Why bother? 
Timed on an IBM PC clone, the Fudge rou¬ 
tine took 11 seconds for the 30,000 itera¬ 
tions, whilst the floating point calcula¬ 
tions took 99 seconds. The answers given 
were - 

Fudge 2733 

Floating 2.7333333333E+03. 

In many circumstances, the former is suffi¬ 
ciently close for the task. 


FUNCTION Fudge(A*B*C * INTEGER) ! INTEGER; 

VAR 

T emp • 1NTEGER * 

UFlow • INTEGER i 

SignFlag * INTEGER* 

BEGIN 

{determine the sign of the 
result and store} 

SignFlag :: =A Xor B Xar C* 

Cif divide by zero return 
Maxlnti it's not infinity 
but it J s certainly big) 

IF C=0 THEN Tem P :=MaxInt ELBE 
BEGIN 

{we have to da the multiplication 
first or lose all accuracy) 
Temp : =Abs(A)#Abs(B)i 
{if Temp is <G then it's reaIlya 
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larger than Maxlnt) 

IF TetnpCO ThEN 
BEGIN 

{let's pray it's less than 
twice Maxlnt and fudge again!} 

Lit law'=Maxint~Abs(Temp) i 
{Treat the underflow and 
tho large part 
(Maxlnt) separately) 

Temp’=Maxinti 

Tempe=Ternp+(Ab5<C) DIV 2) I 
Temp :=: Temp DIV Abs(C); 
LFIaw<*=UFIaw+<Abs(C) DIV 2); 
LFIawi«MJFIaw DIV Abs(C); 

(put it back together) 

Tempi^Temp+LFIowJ 

END 

ELSE 

BEGIN 

Censure that the result is 
rounded up) 

Temp: =*Temp+( Abs (C) DIV 2) i 
{and da the (integer) division) 

Temp ! =Temp DIV Abs(C)i 

END; 

EM) l 

(correct the sign at the result) 

IF SignFlag<0 THEN Fudge>=~Temp ELSE Fudge : =Temp> 
END; 

BEGIN (a demonstation) 

Ur ite(Chr(7))i 

FOR I’=l TO 3DDD DO t’=Fudge(123DD»2,9); 

UriteLn(t)> 

Urite(Chr(7)); 

FOR I—1 TO 30 DO DO r t=1230D#<2/9) 5 
Ur i teLn< r); 

Ur ite(Chr(7)) » 

END. 

Curses! 

Here we are going to look at manipulating 
the cursor on the IBM PC (or near offer). 

The routines use the ROM-BIOS services, 
so they will work on clones and on some 
other MS-DOS machines. 

Turbo Pascal provides the Standard 
Procedure GotoXY(X.Y) to place the cursor 
on the screen in text mode, unlike many 
other Pascal and C compilers, so what 
more could you ask? Unfortunately, this 
routine is a little bit loo well behaved; if we 
try to make the cursor disappear by mov¬ 
ing it to co-ordinates off the screen, Turbo 
Pascal compensates for our error. Since 
there are many times we don't want a cur¬ 
sor at all, we have to resort to using a 
ROM-BIOS routine. 

The second part of the example code 
shows how to change the cursor size; this 
is very handy to distinguish, say, insert 
mode in a word processor Even more 
handy is to have a compiled version on 
disk with standard settings for some of the 
programmes (Reflex is an example) which 
don't set the cursor back to standard as 
they exit! Without further ado 


PROGRAM Curse s; 

{ 

PlaceXY places the cursor an <ar aft) the screen; 
Size_Curse sets the cursor ta a specified number at lines; 
Portability ’Limited ta IBM and Cl ones> same MS-DOS machine 
) 

TYPE 

RegPack=RECORD 

axibx}cx > dx >bp > si>ds >es >fIags t INTEGER; 

EM); 

VAR 

RecPack ’RegPack ’> 

IK ’CHAR; 

PROCEDURE PIaceXY(X j Y :BYTE)i 
VAR 

dhjdljahja I ’BYTE; 

BEGIN 

{select service number two) 
a h ! ~2 > 
a I:*0> 

UITH RecPack DO 
BEGIN 

{load dh with Y and dl with Xi but correct 
tram the DOS D>0 top-1 eft co-ordinates to 
the Turbo 1>1 top-1 eft co-ardinates.) 
dh’=y-l; 
dH-x-l; 

dx’=dh shl B + dl; 

{specify the page to which this applies) 
bx i-0; 

ax”=ah shl B +al; 

{issue interrupt number ID hex) 

Intr ($10irecpack)> 

EM); 

END; 

PROCEDURE Siz»_Curse(StartLInejStapLine 
’BYTE) ; 

C tar the CGAj th© bottom line Is 7» 
whilst for Monochrome it is 13) 

VAR 

ch>cI>ah»aI ’BYTE; 

BEGIN 

{select service number 1) 
ah j- 1; 
al==D, 

UITH RecPack DO 
BEGIN 

ch* =StartL i ne ’> 
c I ’ ^topL i ne i 
cx;=ch shl B + cl I 
ax’=ah shl B +aI; 

{issue interrupt 10 e) 

Intr ($10)recpack); 

END; 

EM); 

BEGIN 

CIrScr > 

{send cursor off-screen) 

PI aceXY (60)24)) 1 
Read(Kbd)IK); 

(get it back) 

PlaceXY(S)S); 

(set cursor size) 

Size_Curse(1 j6); 

Read(Kbd)IK); 

(restore to normal) 

Si ze_Curse<4))7); 

(far CGA; far MIA Size_Curse<12)13)} 

{that J s a I I talks) 

EM) 
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The most popular Pascal 
compiler is Turbo Pascal; 
the most popular database 
management system is 
dBase - here's how to bring 
the two together in a useful 
manner. . . 


The dBase Connection 

THE MOST POPULAR Pascal compiler is 
Turbo Pascal; the most popular database 
management system is dBase II/III/III Plus. 
Can we bring them together in a useful 
manner? Indeed we can, and from time to 
time I will present code here to allow low- 
level tinkering with dBase command files, 
databases and indexes. Of course, if you’re 
really into dBase, you subscribe to Y our 
Computer and automatically receive the 
free dLetter dBase newsletter, don’t you? 

This month we have a Turbo Pascal pro¬ 
gram which reads in dBase command files 
and creates an output showing the calling 
structure. In dBase, one command file can 
call another and so forth, with optional re¬ 
turn to the original. In a large data man¬ 
agement application it is not trivial to 
determine which command file is calling 
which, nor to guess the dependencies in¬ 
herent in such a calling system. This pro¬ 
gram creates a disk file showing each 
command file which is called, and indent¬ 
ing each to show the depth of nesting of 
the command file, Optionally, the actual 
lines of source code can be sent to the 
disk file as well. 


.. .thedBase cannedioa! 


The program is written for the IBM-PC 
version of Turbo Pascal, but most of the 
hardware dependent features are cos¬ 
metic rather than essential, hence it is 
straightforward to modify the source for 
CP/M or Macintosh operation (or indeed 
for other Pascal compilers). Modifications 
to produce a ’plain vanilla’ CP/M version 
are noted in the source comments. 

Since dBase II, III and 111 Plus command 
files are essentially the same, the program 
can equally be used on each of these sys¬ 
tems. Sample output is as follows — 


#Cal I Ing structure qt dBase 
♦iles commencing at’menu.prg 

MENU.PRG 

PERMIN.PRG 

ACCPERM.PRG 

FINDINGR.PRG 
MODPERM.PRG 
PLCORDER.PRG 
CHKINGR.PRG 
MDDORD.PRG 
PRINMENU.PRG 
OROL1ST.PRG 
PRINT.PRG 
FPRINT,PRG 
PERMOUT.PRG 
PR INT.PRG 

HISTPROD.PRG <not tound) 

DATE.PRG 

Nr. cf Lines processed was <2236 

Nr. Files processed Uas >16 

The Turbo Pascal source to achieve this 
is is given in Listing I 

In the case of dBase III and dBase III 
Plus, the selection of the -O option not 
only directs all the source code to the out¬ 
put file, but also prepares a dBase 
PROCEDURE file, which can be called by a 
MAIN file like — 


SMAIN.PRG 

SET PROCEDURE TO OutFile 

DO WHILE .T. 

00 First 

endod 

In the case of complex data manage¬ 
ment systems, a PROCEDURE file can 
substantially increase operational speed 
since the necessary code is loaded into 
memory by the SET PROCEDURE TO com¬ 
mand and does not have to be subse¬ 
quently retrieved from disk. Whilst this 
can nominally be achieved by using the 
dBase III command editor, the limitation 
of this to 4K of code prevents it being per¬ 
formed directly except for trivial cases. 
Prior to taking this step, you must ensure 
that each module of the code is thor¬ 
oughly debugged, since file size limita¬ 
tions might constrain your ability to sub¬ 
sequently edit the merged file. 

This program could also be used to ana¬ 
lyse similar calling systems with minor 
modifications. For example, where the 
dBase statement DO ProcName triggers 
the investigation of a called file, in 
R:BASE System V the equivalent com¬ 
mands are either INPUT ProcName or 
RUN ProcName IN ProcFile USING Pa¬ 
rameters, hence the differences are syn¬ 
tactical rather than structural. 

In the next dBase connection in the 
Turbo Tips series. I will present a similar 
utility to parse and analyse dBase com¬ 
mand files for correct sysnpxx; dBLint, a 
lint type utility for dBase, 
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(*F20) <*M5/FC-00S only#) 

PROGRAM dBTra*: 

E 

DATE* May »07. 

BYt Patar HIi i. 

PURPOSE* Shaw the trtt itructurt of dBase 11/111 Commend tile*. 

USEAGE* DBTREE CMainFiieD COutPutFI 1eD C-ottDD 

The -o option causes the output of the dBase iourct cod* to th* 
disk llli. It this option I* selected. tH« cr**t*d til* Is ready 
tor s*I action *s a PROCEDURE til*. 

Th* -t option caus** ail text to b* dir*ct*d to th* »tr*in 

It *ny command I I n* piraniitiri *r* *p*cltl*d th*r* Is no prompting 

tor option*; it non* ar* specified. ail ar* prompted. 

) 

CONST 

MaxFI l«» *20 f 
TYPE 

LongStr -STRINGC255] 

OAR 

InFii* 'ARRAYCl..MaxFIiesD OF TEXTC$B00D; 

OutF >TEXTC*B00D; (sMS/PC-00S only! tor CP/M. typ* is TEXT f *) 

i . J.k •integer; 

Depth <INTEGER) 

Lin«Count * INTEGER! 

FI I(Count .INTEGER! 

MainFiI* 'LongStr; 

OutFI I* *LongStr * 

PathNam* 'LongStr! (»MS/PC-00S only#) 

T«xtToScr*»n» 

TsxtOut 'BOOLEAN: 

ScrnAddr * INTEGER) 

LC 'LongStr) 

FUNCTION Stri p(O ummyStr •LongStr)'LongStri 
(remove l*ading blanks) 

VAR 

I 'INTEGER) 

BEGIN 

UH1LE Copy(OummyStr.1.1)*' ' 00 Oel*te(DummyStr»i»1)) 

Strip)"OummyStr> 

END) 

FUNCTION Ex.l st (VAR FilsNam* ■ LongStr )• Boo I *an) 

tdst*rmin* whether a til* axists) 

VAR 

Fil * F 1 Isi 
BEGIN 

Exist'-True: 

AssignfFII .Fi I*Nam* ) ) 

(*I-) 

R*s*t(Fil)i 
C*U) 

Exist'-!lORasuIt-D) i 
CI os* <Fi I ); 

END) 

FUNCTION 1OR(VAR FiI*Na* 'LongStr)'Int*e*ri 

(determine th* Input/Output rasult ot attempting to Opan a til*) 

VAR 

Fil 'Fil*; 

BEGIN 

Asslgn(F).FiI*Nam*)I 
(*I-) 

Rasat (F I I) t._ . 

10R * *1oRasu 1 1 ; 

C*I + ) 

CI as*(F I I )) 

ENO! 

FUNCTION UC(DummyStr 'LongStr)'LongStri 
(concert a string to UPPER CASE) 

VAR 

I 'INTEGER! 

BEGIN 

FOR i'-l TD Length{DummyStr) DO DummySlrCi3 1 "UpCa*e(OummyStrCiD ) ! 
UC'"OummySt r; 

END; 

<# This procedure tor MS/PC-DOS only*) 

PROCEDURE G*t_DI*play) 

VAR 

CGAPr * sent INTEGER: 

BEGIN 

CGAPresent' «Mem[D 1 *AlD 3i 

IF ((CGAPrasent AND *3D)-*30) THEN ScrnAddr *"*B000 ELSE 
ScrnAddr'=*BBDD! 

END) 


PROCEDURE Co I our(For*.Sack 'INTEGER): 
BEGIN 

Tex tCoI or(For *) i 
TextBackGround(Back). 

END) 


<tt Thl* procedure for MS/PC-DOS only*) 

PROCEDURE UAL(Attr.C.R 'Integer: CurrantStr'LongStr)! 

VAR 

Count * Co I.LanCurrentStr * 1nteger) 

BEGIN 

LanCurrantStr'"Length!CurrantStr)f 
Co I *"C+LenCurrentStrI 
C'"{(R-l)al6D) + ( (C— 1 >**2> ! 

FOR Count'"1 TO LanCurrantStr 00 
BEGIN 

MawCScrnAddr'CD »"Ord(CurrantStrtCountD>) 

MemCScrnAddr■C+lD'"Attrl 
C'"C+2! 

END) 

ENO: 

FUNCTION YesNo!Dummy «LongStr)'BOOLEAN! 

VAR 

InChar 'CHARI 
BEGIN 

Ur I ta (Oummyt* * (Y/N>? '): 

Co I our(0.7); 

ReadLn!InChar); 

Co I our(7,0) t 

IF InChar IN C'Y'.'y'D THEN Y**No'-TRUE ELSE YesNo«-FALSEi 

ENOi 

(N This procedure tor MS/PC-DOS only*) 

PROCEDURE Frame(Nam* 'LongStr( ULX >ULY,LRX.LRY 'INTEGER): 

VAR 

1 *Attr » Integer i 
BEGIN 

Attr'"1121 

UAL(AttriULX.ULY»Chr(201)); 

UAL(Attr.ULX.LRY,Chr(2aa)> f 
UAL(Attr.LRXiLRY > Chr(IBB >)t 
UAL(Attr,LRX , ULY.Chr (1B7)): 

FOR I (ULX t 1) to (LRX - t) DO 
BEGIN 

UAL(Attr >1.ULY.Chr(205)); 

UAL(Attr > I ,LRY.Chr(205))i 

END: 

FOR I (ULY + 1) to (LRY - t) DO 
BEGIN 

UAL(Attr .ULX. 1 .Chr<1B6> ) ; 

UAL(Attr,LRXi1,Chr(166))t 

ENO! 

UAL(Attr .ULX+MLRX-ULX) DIV 2>-(Length!Nam*) DIV 2) .ULY.Nam*) I 

END: 

PROCEDURE 1itia I Is*; 

BEGIN 

CIrScrI 
LowVidao f 

G*t_DI*pI ay » (MMS/PC-OOS only*) 

Depthi*ii 
I neCount'*0 » 

FI IeCaunt'"0! 
i >»li 
j'-t I 
k '-1 [ 

PathNam* • - ' ' ; (*M5/PC-005 only*) 

TsxtOut'“FALSEi 
TextToSc reen'"FALSEi 

UAL (112.4.1. ’dBtr ee. , . .by HlllSott... 1967. 

Calling structures of dBase 11/111 tiles. M* 

Frame('Source'.1.3.BD.21)i (»MS/PC-OOS only*) 

Window!3.4.78,20)i <»MS/PC-0OS only*) 

Frame!'Status' ,1.23.80.25)) (sMS/PC-DOS only*) 

CirScri 

END I 

(ttFoltowing Procedure tor MS/PC-00S only*) 

PROCEDURE G*t_Parms) 

BEGIN 

CA5E ParaaCount OF 
1'BEGIN 

MainFiI•'-ParamStr(1): 

Ur i te( ■’Output File name tor result ? *)t 
Colour(0.7). 

RaadLn!OutFi I *)i 
Co I our(7.0): 

TsxtOuti"YesNo('Output all text to til* f '): 
T*xtTo5cr**n'-Y*sNo(’Output all text to screen 7 ’)i 
IF LangtMOutFI [*)-D THEN Haiti 
END; 

2'BEGIN 

MainFi le.-ParamStrd); 

OutFIla■-ParamStr(2): 

TextOut»-YesNo ( 'Output ell text to til#?'); 

TextToScreem-YesNo(’Output all text to screen?')! 

END! 

3 > BEGIN 

MainFi ie >-ParamStr! 1 ): 

OutFi I a »-ParamStr(2)J 

IF Post'0',UC(ParamStr(3>) )<>Q THEN TextOut>-TRUE} 

IF Po*<'T'.UC(ParamStr(3)))<>D THEN TextToScrean."TRUEi 
END! 


Listing I. A Turbo Pascal program which reads in dBase command files and creates an output showing the calling structure. The program is written 
for the IBM-PC version of Turbo Pascal , but most of the hardware dependent features are cosmetic rather than essential , hence it is straightforward to 
modify the source for CP/M or Macintosh operation [or indeed for other Pascal compilers). Modifications (o produce a 'plain vanilla' CP/M version are 
noted in the source comments 
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ELSE BEGIN 

Urit*Ln<'USEAGE dBTree CMainfflvJ COuttllvJ C-aCt]]‘)l 
Ur I t*Ln( 'Uhara -o i* output of all taxt to OutfiiaMi 
Urit aLn ('and *t i* output of all taxt to scraan.'); 
Urlta('Flr*t (Main) fila ni«t (Including txttmlan)? * ) ', 

Co I our(□f 7) i 
RaadLn(M*1 nF I I a >i 
Co I our(7»Q); 

Ur I ta( 'Output Fila mint for mult? 1 ) : 

Co I Our(0(7); 

RaadLn(OutF!ia); 

Co I our(7» 0 >; 

TaxtDut 1 “YaaNo('Output ail text to fia ? ')i 

TaxtToScraani-YaaNo(’Output all taxt to *cri»n7')i 

IF ((Langth(OutFIla)-0) OR (LangtMMe i nF i a )»0) > THEN Halt; 

end; 

END; (caaa) 

UAL(7,2,24, ' In. M i 

UAL(113,5,24,UC(MainFi If ) ) I 

UAL(7,30,24,'Out > ' ) ; 

UAL (113,4Z,24,UC < Ou tFi I a > ) i 
UAL(7,70,24,'Lina < ')I 


(a Altarnatlv/a Procadura If Parametar* tra nat lupporttd on your 
computar or uirilon of Plica I ii• 

PROCEDURE Gat m Par ma; 

BEGIN 

Urital'Flrat (Main) fila to procaaa (Including axtanaion)?' 
RaadLn(MaInFi I a)I 

Ur I te( 'Output Fiia nama for raauIt 7’ ) I 
RaadLn(0utFII*); 

ENOI 

a) 

(apoIt ouIng Pr ocedur a for MS/PC-DOS only*) 

PROCEDURE Gat Path; 

BEGIN 

IF Poa('\',MaInFI la)< >D THEN 
BEGIN 

PathNaaa- - UC < MalnFlla); 

REPEAT 

PathNana•-Copy(PathNaaa,1> Langth(PathNaaa)-1)I 
UNTIL PathNaaaCLangth(PathNaaa)3-'\'t 

END; 

END; 

PROCEDURE 0 P an_0utF S 
BEGIN 

A**Ign(OutF,0utFila), 

RaUr Ita(OutF); 

Ur i taLn (Ou tF > ' *St ructun of dBaaa fllaa commanclng at *'• 

MaInF 1 I a> ( 

Ur It»Ln('Structura of dBaaa fiiaa coawancing at ■ ' ,MainFi ia) ; 
END; 

PROCEDURE Procaa»_Fiia; 

LABEL 

Lli 

OAR 

CurrtntLIna 1 L a ngSt r; 

BaiancaLlna -Lo ngStri 
OldX.OIdY >INTEGER! 

PROCEDURE Op«n_Ntui 
BEGIN 

FI I aCount > -F i l aCountf-1 i 
IF Exiat(B»lancaLina ) THEN 
BEGIN 

Aaaign( InFl I aCDap th3,BalancaLina) ; 

Raaat(InFi lat DaplhJ>; 

UritaLn(OutF); 

Ur It aLni 

<*Naxt Z linaa M5/PC-D0S anly«) 

UAL(7,5,24,' ')! 

UAL(113,5,24,BaIancaLIna >I 

END 

ELSE 

BEGIN 

Dapthi-Dap th-Ii 
CASE IOR(BaIancaLIna) OF 
1 - BEGIN 

UritaLn(OutF, * * < not found)'); 

Uri taLn( ' <not found)'); 

ENDI 
24,BEGIN 

UritaLn(OutF , ' »< toa many op an fi Iaa> ' > I 
Ur ItaL n( ' < toa many opan ilaa>')1 

END; 

END; 

END; 

END; 


IF TaxtOut THEN 
BEGIN 

FOR k--l TO (3*Dapth} 00 Urita(0utF,' 
Ur I taLn(OutF,CurrantLI na) , 

END; 

IF TaxtToScraan THEN 
BEGIN 

FOR k--l TO (3*Dapth) DO Urlt»<0utF,' 
Ur I ttln(CurrantLIna)! 

END; 


PROCEDURE EiIminata 
VAR 

Parti -LongStri 
Part2 -LOngStr! 
FoundPo* ■INTEGER; 


PROCEDURE Cut,Offi 
BEGIN 

(eliminata continued comment*) 

IF FoundPoiOO THEN 
BEGIN 

IF CurrantLinaClength(CurrantLina)]-'; ' THEN 
REPEAT 

RaadLn! InF j leCDapth],CurrantLina); 

Taxt Out 1 

UNTIL CurrantLi natLangt.MCurrantLi na )]<>'! ' 

ELSE Cur r antLina ! -Copy(CurrantLina,l,FoundPo»-l)i 

end; 


BEGIN 

CurrantLinai-StrIpICurrtntLIna) ( 

(daiata block* of taxt) 

IF CopytCur rintLIne , 1 ,4)-' TEXT ' THEN 
REPEAT 

RaadLn( I nF i laCDapth],CurrantLlna) fjm 
Taxt_0ut i 

LinaCount «-LIntCountfl5 
(MNaxt 5 Ima* MS/PC-D0S only*) 

IF L i neCount / 10 -UnaCount DIV 10 THEN 
BEGIN 

Str(LineCount >S,LC)! 

UAL(113,75,24,LC)I 

END: 

UNTIL Copy(Strip(CurrantLIna),1,7)«'ENOTEXT'; 

(gat rid of comment*) 

FoundPo* i -Po *( ' a ' iCurrentl. I n*> i 
CutjOf t; 

FoundPo*i-Po*( 'NOTE' , Cur r antLine)i 
Cul_0f f■ 

FoundPo*-Poa( 'It CurrantLine)i 
Cul_Ot f; 

(get rid of 9 1 

FoundPo*,"Po•('a'(CurrantLine); 

Cut_0f t: 

(gat rid of f ) 

FoundPo*,— Po *( '?* (CurrantLine)i 
Cut-Off; 

(gat rid of "iitarat*") 

FoundPo *'=*Po* ( j r r an tL i na) I 

IF FoundPo*<)0 THEN 

BEGIN 

Parti “Copy(Cur r antL‘na,FoundPo»+I, 

Langth(CurrentLlna)-FoundPo*): 
Currif*Lin»!oCopy(CurrlntLintiliFoundPo*“l); 
FoundPo*i»Po*! '" ' I Par t1 ) l 
IF FoundPoiOO THEN 

CurrantLin»:=CurrentLine+ 

Copy (Par t I > FoundPo*-! 1 <Length(Partl)~FoundPo*-l); 

END! 

FoundPo a - -Po*( ' CurrantLi na)'. 


IF FoundPo* < >□ THEN 
BEGIN 

Parti‘■CopyfCurrtntLInt,FoundPo»+l, 

Langth(CurrantLina)-FoundPo*)I 
Cur r antLIna *-Copy(CurrantLina.1,FoundPo*-1>; 
FoundPo*'-Po*( ''' ' iPar 11>i 
IF F#undPo»<)0 THEN 

CurrantLina'-CurrantLInef- 

Copy(Par tl , FoundPo* + l.LangthtPnrtl)-FoundPo*-1); 

END; 


PROCEDURE Miin.Praciit; 
VAR 

FoundPo* -INTEGER; 

BEGIN 

UH1LE DepthOCI DO 
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BEGIN 

WHILE NOT EoHInFi laCDapth]) OD 
BEGIN 

It D*pth<1 THEN Exit; 

RaadLn(InF t1eC DapttO*Cur rantLIn*)i 
T*xt_Out; 

Lin*Count’-LIn*Count+1; 

(ttNext 5 I In.. MS/PC-DOS only*) 

IF Lin.Count/10 -LlnaCount DIV 10 THEN 
BEGIN 

Str(LIn.Count■5 » LC); 

UAL(113 * 75 * 24 > L C >; 

END; 

Cur r antL, I n* » -UC ( Curr.ntL I n* ) f 
El I ainat«_Co..«nti; 

FoundPoa>-Poa('DO 'iCurr.ntLln»)! 

IF < (FoundPoaOO) AND 

(Poa('ENDDO'.Curr.ntLin*>-0>> THEN 
BEGIN 

i •-FoundPoaI 

j■ -Length(CurrantLIn# >-FoundPoai 
BaItnc.Lin*’-Copy (Cur rantLIn**i+2 * j >i 
IF UPa(' CASE’iB.IancaLIna >-0 > 

AND (Copy (Str lp(Ba lane .Lin*) >1*1)0 ' t ' ) 

AND (Po»(' WHILE'.BaIanc.LIn*)-0>) 

THEN 

BEGIN 

Bo 1 tnc.L t n. ’ -St r ip(B«linc»Lim) ; 

IF Poa(' ’ *Ba 1 ancaL i na ) OD THEN 

BaIanc.LIn*i-Copy(BaIanc.Lin* * 1 * 

Poa ( * ' *Ba I an cal. i n* ) -1) * 

IF Poa('.'>B«Ianc.Lin.1-D THEN 

BaI anc*Lin«•-BaIanc.LIn#+'.PRG’> 
<*MS/PC-DOS only*) IF Po*('\'*BaIanc*Lin*)-0 THEN 

Ba I anc.LIn.>-PathNaaa+BaIanc*Lin*; 

FOR ki-l TO (BwDeeth) 00 
BEGIN 

Ur i t.( Ou tF * * Mi 
Urlta(‘ '); 

END; 

IF TaxtOut THEN Ur It»(OutF *'*"); 

Urita(OutFiB.lancaLina)* 

IF TaxtToScraan THEN Colour(D*7); 

Ur Ita(BaI«nc«Lin* )( 

LowUid.oi 

Dap thi-Dapt h11; 

OpanNau; 
ha 1 n, Procan ; 

END | “ 

END; 

END; 

IF (TaxtOut) AND (CurrantLina<>'RETURN *> THEN 
UritaLn(OutF * 'RETURN ' ) ; 

C1oaa(1n tiIaC Oapth D); 

Depth>-Oapth-1i 
IF Depth < 1 THEN Exit: 

END; 

ENOi 

BEGIN 

BaIancaLin* <-Ma1nFi la! 

Op»n..Nau ; 

BaIancaLina * «UC(BaIancaLina): 

Ur i taLn ( OutF * ' * ' +Ba I ancaL i *>* ) ; 

IF TaxtOut THEN UritaLn(OutF PROCEDURE ’+BaIancaLina>; 
IF TaxtToScraan THEN Colour<D*7): 

UritaLn(8«lancaLina)1 
LowVidao; 

Ha i n.Proc.M i 

END; 

PROCEDURE Uind_Up J 
BEGIN 

Ur i taLn( ’Fini shad ' )i 

Ur itaLn<OutF» ' *Nr , of Lina, processed utl ' *Lin f Count)* 
Ur ittLnl 'Nr ot Lina, procisttd wa*i ' »L i naCount t i 
Urit»Ln(OutFi'»Nr. at Files prOc»l««d uil '*FtleCount)i 
Urit*L n('Nr, ot FI lea prneaaed uti ' ' »FI l aCount) 

CIoaa(Ou tF ) ; 

Uindou<1.1-BD.25)- (*hS/PC-005 only.) 

END; 

(*1h* tollowing Prcadur* il tor MS/PC-OOS only.) 

PRDCEOURE ErrorlErrno .ErrAdr INTEGER)! 

BEGIN 

U i ndow(1>1.BO.25)i 
ClrScr i 

Ur i * *1 'Error Number ' »Hi (Errno I * 1 * ' *Lo(ErrNo 1) i 

Ur i taLn( * An Irrtcoufribl* Error Hae Occurrad. - .SorryI ’ )t 

C I oaa(OutF)1 

Halt; 

END; 

BEGIN (HA IN) 

ErrorPtr >-0t*(Error ) i t*MS/PC“D05 Only*) 

In Itla I 1aa! 

G* t _Pa r maI 

Gat_Pat; (.MS/PC-OOS only.) 

Open OutFi 
Proca»»_Fi I ai 
Uind Up! 

END. 


For: Musicians, Road Crews, 
Recording Engineers, Lighting People, 
^ Managers, Promoters and anybody 
'H; interested in what goes into . 

today’s music-making. J 


MAGAZINE 
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